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

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

 

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

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

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


此主题相关图片如下：qq截图20170517153100.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

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