Select Case e.Node.Name
Case e.Node.Name
Dim dr As DataRow
dr = DataTables("报表权限").Find("报表 = '" & e.Node.Name & "'")
If dr IsNot Nothing Then
Dim fl As String = dr("分组")
Dim ck As String = dr("查看权限")
If Functions.Execute("ShouQuan",fl,ck) Then
If Tables.Contains(e.Node.Name) Then
MainTable = Tables(e.Node.Name)
ElseIf Forms.Contains(e.Node.Name) Then
MainTable = Tables("查询表")
Forms(e.Node.Name).Open()
End If
End If
Else
MessageBox.Show("你无此表查阅权限!")
End If
End Select
符合标色部分条件，但总提示
此主题相关图片如下：微信图片_20210807115518.png
加好友 
发短信
Post By：2021/8/7 11:57:00 [只看该作者]
