可在快速平台子窗体内设一个按钮，点击跳转转到相应项

Private Sub Command41_Click()

Dim intI As Integer
    For intI = 1 To Forms!sysfrmmain!ocxTreeMenu.Object.Nodes.Count
        If Forms!sysfrmmain!ocxTreeMenu.Object.Nodes(intI).Text = "报废录入" Then            

        '指定菜单上结点，并转移到相应的子窗体
              If RunMenuCommand(Nz(Forms!sysfrmmain!ocxTreeMenu.Object.Nodes(intI).Tag), Forms!sysfrmmain.sfrChild, Forms!sysfrmmain.lblNodePath) = -1 Then
               mlngCurrentNodeIndex = Forms!sysfrmmain!ocxTreeMenu.Object.Nodes(intI).Index
               Set Forms!sysfrmmain.ocxTreeMenu.DropHighlight = Forms!sysfrmmain!ocxTreeMenu.Object.Nodes(intI)
    End If
 Exit For
        End If
    Next
End Sub