treeview问题

like5188

如何实现点击‘总界面’treeview中的各个子节点来打开对应的窗体。
望高手帮帮忙！！

aslxt

Private Sub TreeView_NodeClick(ByVal Node As Object)
  Select Case Node
  Case "a"
    DoCmd.OpenForm "a", acNormal
  Case "b"
    DoCmd.OpenForm "b", acNormal
  Case "c"
    DoCmd.OpenForm "c", acNormal
  End Select
End Sub
其中"a"/"b"等可以修改为你的具体值

like5188

2# aslxt
老大，我希望是在右边的子窗体打开，还有就是那几个更新查询打不开，应该怎么修改哦？

aslxt

那你在右边增加一个子窗体，然后
Case "a"
    设置子窗体的源为与"a"相关的已经有的窗体名称就可以了

aslxt

例如，如果子窗体的名称为Child5 ，可以用如下代码
Private Sub TreeView_NodeClick(ByVal Node As Object)
  Select Case Node
  Case "数据输入"
    Me.Child5.SourceObject = "进货数据输入"
  Case "数据查询"
    Me.Child5.SourceObject = "库存查询窗体"
  End Select
End Sub

like5188

5# aslxt
老大，有新问题了，原来的窗体查询不需要输入参数，现在改成这样后需要输入参数了，是怎么回事？

like5188

5# aslxt
老大，还有打开更新查询，用什么命令？

aslxt

我的例如只是示例，你可以在case后面增加任意个，根据node的不同值，打开不同的窗体

aslxt

6# like5188
这种情况，得修改查询的参数，因为库存查询窗体并没有打开，而是作为子窗体打开的

like5188

9# aslxt
老大，能帮我修改其中的一个查询窗体，和更新查询吗？我是新手，麻烦您了！！！