主题：生成的目录树点击右边的表数据不变请高手帮忙看看

这是我在网上看到的一个多层目录树 没有看到打开看看了 点击目录树的节点 表的内容不变 请高手帮忙看看

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

点击浏览该文件:管理项目8.rar

节点事件没有写任何代码,当然内容不变了

我知道没有写代码  看了半天就是看不懂 因为没哟编程基础

不知道怎么来写这段代码

参考2楼帮助的例子

明天自己试着写代码 看看行不行 到时再请教了 谢谢bin

请高手帮忙看看节点代码 执行到第二个根节点 下面的子节点就不执行了  非常感谢

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

点击浏览该文件:管理项目8.rar

 回复8楼，帮你做了【按部门】的，其余两种，留给做作业。

 

 参考

 

Dim t As Table = Tables("设备表")
If e.node.Level > 0 Then
    If e.Node.FullPath.StartsWith("按部门") Then
        If e.node.Nodes.count > 0 Then
            Dim sidx As Integer = e.node.FullPath.IndexOf("\")
            Dim dept As String = e.node.FullPath.SubString(sidx+1)
            t.Filter = "所在部门 like '*" & dept & "*'"
        Else
            Dim sidx As Integer = e.node.FullPath.IndexOf("\")
            Dim eidx As Integer = e.node.FullPath.LastIndexOf("\")
            Dim dept As String = e.node.FullPath.SubString(sidx+1, eidx-sidx-1)
            Dim fac As String = e.node.FullPath.SubString(eidx+1)
            t.Filter = "所在部门 = '" & dept & "' and 安装地点 = '" & fac & "'"
        End If
    Else If e.Node.FullPath.StartsWith("") Then
       
    Else If e.node.FullPath.StartsWith("") Then
       
    End If
Else
    t.Filter = ""
End If

非常感谢 安装您的方法 搞定