主题：模拟单击, 显示目录树问题

AfterLoad 代码 : e. Form. Controls("Button5").PerformClick

Button5的Click 代码:

DataTables("主窗口_Table1").AllowEdit = True '可编辑

e.Form.Controls("Button5").PerformClick  '模拟单击

目录树的代码:Dim filter As String = ""
If e.Node.Name <> "显示所有数据" Then
    Dim dr As DataRow = e.Node.DataRow
    Select Case e.Node.Level
        Case 0
            filter = "部门 = '" & dr("部门") & "'"
        Case 1
            filter = "部门 = '" & dr("部门") & "' and 姓名 = '" & dr("姓名") & "'"
    End Select
End If
Tables("主窗口_Table1").Filter = filter

此主题相关图片如下：qq截图20170517144955.png

我需要的是在表中加载数据的同时,可以显示目录树,请问是哪里出了问题?