设置筛选，不要设置加载。如

Tables("副本表").Filter = "C = true"

水平有限，不是很明白，是在目录树的事件代码上修改？好象行不通！

DataTables("表1").LoadFilter = Filter
DataTables("表1").Load()
If tab.SelectedPage.Text = "page1" Then
   
ElseIf tab.SelectedPage.Text = "page2" Then
    Tables("窗口1_Table2").Filter = "C = true"
End If

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")
If tab.SelectedPage.Text = "报名审核" Then
    DataTables("鉴定考核表").LoadFilter = Filter
    DataTables("鉴定考核表").Load()
    If tab.SelectedPage.Text = "报名审核" Then
        Tables("鉴定考核表").Filter = ""
    ElseIf tab.SelectedPage.Text = "资审通过" Then
        Tables("鉴定管理_Table3").Filter = "资格审核 = true"
    End If
End If

理解能力太差，目录树事件这样写，还是没反应，没起到我想要的作用

那你最后的代码写成下面，如果还有问题，做个实例发上来测试

Tables("鉴定考核表").Filter = ""
Tables("鉴定管理_Table3").Filter = "资格审核 = true"

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:我的项目.rar

搞了很久也搞不定，上实例请版主指教！