主题：目录树问题求教！

有窗口1，窗口中有目录树和页面合集控件各1个；有表A、B、C，每表都有相同名的列1、列2，表A、B、C分别绑定在页面合集中的page1\page2\page3中，

现想实现：

      当在page1时，目录树显示的是表A的列1、列2的内容；且点击相应内容，表A的内容也随之变化显示；

      当在page2时，目录树显示的是表B的列1、列2的内容；且点击相应内容，表B的内容也随之变化显示；

      当在page3时，目录树显示的是表C的列1、列2的内容；且点击相应内容，表C的内容也随之变化显示；

请教版主，这个是否可行？这个代码应如何写？

此主题相关图片如下：1542179635(1).png

 

上图的目录树只能控制1个表，是否可以1个目录树控制几个表？

应该是点击目录树，当前的页面随之变动

版主在吗？烦请指点一下，谢谢！

Dim Filter As String
If e.node.Text = "加载所有数据" Then
    Filter = ""
Else
    Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
    Select Case e.Node.Level
        Case 0
            Filter ="[鉴定批次] = '" & dr("鉴定批次") & "'"
        Case 1
            Filter ="[鉴定批次] = '" & dr("鉴定批次") & "' And [工作单位] = '" & dr("工作单位") & "'"
    End Select
End If
DataTables("报名登记表").LoadFilter = Filter
DataTables("报名登记表").Load()
DataTables("鉴定考核表").LoadFilter = Filter
DataTables("鉴定考核表").Load()

 

版主，这段代码好象也能起到我想要的效果

此主题相关图片如下：1542248327(1).png

 

在目录树的NodeMouseClick事件里，上述代码运行报错

Dim Filter As String
If e.node.Text = "加载所有数据" Then
    Filter = ""
Else
    Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
    Select Case e.Node.Level
        Case 0
            Filter ="[鉴定批次] = '" & dr("鉴定批次") & "'"
        Case 1
            Filter ="[鉴定批次] = '" & dr("鉴定批次") & "' And [工作单位] = '" & dr("工作单位") & "'"
    End Select
End If

Dim tab As WinForm.TabControl = e.Form.controls("tabcontrol1")
msgbox(tab.SelectedPage.Text)
If tab.SelectedPage.Text = "报名审核" Then
    DataTables("报名登记表").LoadFilter = Filter
    DataTables("报名登记表").Load()
ElseIf tab.SelectedPage.Text = "考核评审" Then
    DataTables("鉴定考核表").LoadFilter = Filter
    DataTables("鉴定考核表").Load()
End If

 

版主，自己搞定了，是我代码没完整，但就是每次点目录树的节点时，会弹下面图中的提示，点了“确定”下行，这是不是很麻烦，可以不要提示吗？

此主题相关图片如下：1542248782(1).png

求助版主：我在Page4中放了1个表控件，捆绑“证书编号表”（非副表），也有“鉴定批次”、“工作单位”列，同Page1中的表一样；窗口事件、目录树事件也按格式加了代码，但发现在目录树不能控制“证书编号表”，而且目录树在项目运行后是全部加载了数据，而不是为空，由我点击目录树节点选择，这是什么原因？

目录树和窗口事件代码上是我没写完整，刚才自查出来了，现在目录树能控制所有的表、副表；就是项目运行后，数据不是为空，由我选择加载，这个问题我还没有解决，我先自己找找原因，水平很低但也得努力！实在不行再麻烦版主！