窗口中有：1、分区面板、目录树、页面集合、复选组合框各1个； 2、有表1，有A、B、C、D、E、F等列，其中C列为逻辑列（手动）；
3、Page1绑定表1，page2也绑定表1，作为副本，只显示A、B、C列且C列为TRUE的行；
4、想实现：在Page1中的表1的C列为TRUE或FALSE时，Page2中的行能自动增或减。
问题：目录树能正常按要求控制page1中的表1，但page2中的显示就不能达到要求，目录树事件代码如下：
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 ="[列A] = '" & dr("列A") & "'"
Case 1
Filter ="[列A] = '" & dr("列A") & "' And [列B] = '" & dr("列B") & "'"
End Select
End If
Dim tab As WinForm.TabControl = e.Form.controls("tabcontrol1")
If tab.SelectedPage.Text = "page1" Then
DataTables("表1").LoadFilter = Filter
DataTables("表1").Load()
ElseIf tab.SelectedPage.Text = "page2" Then
DataTables("表1").LoadFilter = Filter
DataTables("表1").Load()
End IF
加好友 
发短信
Post By：2018/11/18 12:53:00 [只看该作者]
