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

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

 你生成目录树的代码写在哪里？贴出完整代码。

试试改成

Dim t As Table = e.Form.Controls("Table1").Table

trv.BuildTree(t.DataTable, "部门|姓名")

色大大,效果还是跟之前的一样的,
此主题相关图片如下：qq截图20170517155112.png


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

我的想法是 窗口展示数据的时候是没有"显示目录树"这个按钮的,它是要隐藏的,

我想通过模拟单击做到我想要的效果, 就是根据右边的数据形成左边的目录树,

当我表中的数据部门姓名有变化的时候,目录树也会改变

 把生成的代码，写到表格的AfterFilter事件去

大大,窗口没有AfterFilter事件,表中有,我写到Table1中的AfterFilter事件中去了

,完全木有用阿!

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim t As Table = e.Form.Controls("Table1").Table

trv.BuildTree(t.DataTable, "部门|姓名")

例子:

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

点击浏览该文件:测试.rar