主题：目录树生成和统计

老师麻烦你给调试一下，，，生成的不会写麻烦给写一下
此主题相关图片如下：1669525893867.png


此主题相关图片如下：1669526128709.jpg

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

点击浏览该文件:2022-10-25开发.rar

老师这里我好像调好了，，就是在窗口表事件统计前加了个DataTables("授权").Load，，现在就是在列名加入了同名的会报错，，不知道那里的原因，麻烦老师给看看，再有帮我再授权表的分组名，表名，做个按钮直接生成的，死活做不出来，谢谢老师了

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

点击浏览该文件:2022-10-25开发.rar

授权--选择2级--增加表名，，重命名的时候，不是同名不会出错，，输入列名是重名就会提示，不知道那句代码需要改

老师顺便问一下，，授权这里，这里可以把导航的这些按钮也隐藏了，还是要从新做一个控制窗口来控制

照你的改了，，选择目录树事件单击事件又有问题了，，表名和列名输入不进去了，这里需要怎么改一下呢

 

Dim Filter As String = ""
If e.Node.Name <> "显示所有用户"' Then Then Then Then Then用Name属性, 不能用Text属性 Then
    Dim js As String = e.Node.DataRow("分组名")
    Dim nm As String = e.Node.DataRow("表名")
    Dim lm As String = e.Node.DataRow("列名")
    Dim Product As String = e.Node.DataRow("列名")
    Select Case e.Node.Level
        Case 0
            Filter = "分组名 = '" & js & "'"
        Case 1
            Filter = "分组名 = '" & js & "' And 表名 = '" & nm & "'"
        Case 2
            Filter = "分组名 = '" & js & "' And 表名 = '" & nm & "' And 列名 = '" & lm & "'"
        Case 3
            Filter = "分组名 = '" & js & "' And 表名 = '" & nm & "' And 列名 = '" & lm & "' And 列名 = '" & Product & "'"
    End Select
End If
DataTables("授权").LoadFilter = Filter
DataTables("授权").Load()