定义了函数BBBDim nd As WinForm.TreeNode =args(0)
Select Case nd.name
Case nd.name
For Each dr11 As DataRow In DataTables("授权表").DataRows
If dr11.IsNull("角色") = False Then
Dim nms() As String = dr11("角色").Split(",")
For Each nm As String In nms
If _UserRoles.contains(nm) Then
Dim dr As DataRow
dr = DataTables("授权表").Find("表名 = '" & nd.Name & "' and 角色 like '%" & nm & "%' And 不可见=1 And 列名 is null")
If dr Is Nothing Then
MainTable = Tables(nd.Name)
Else
MessageBox.Show("你无权查询此表!")
End If
Dim dr1 As DataRow
dr1 = DataTables("授权表").Find("表名 = '" & nd.Name & "' and 角色 like '%" & nm & "%' And 不可见=1 And 列名 is not null")
If dr1 IsNot Nothing Then
RibbonTabs("hlcz").Groups("lcz").Items("UnHideColumn").Enabled=False
ContextMenus("Column").Items("UnHide").Visible=False
Else
RibbonTabs("hlcz").Groups("lcz").Items("UnHideColumn").Enabled=True
ContextMenus("Column").Items("UnHide").Visible=True
End If
End If
Next
End If
Next
End Select
NodeMouseClick 调用函数的时候参数要怎么写
加好友 
发短信
Post By：2021/8/21 17:34:00 [显示全部帖子]
