For Each dr1 As DataRow In DataTables("菜单权限").Select("用户分组 = '" & _UserGroup & "'")
If dr1("菜单分区") = "快速访问栏" andalso dr1.IsNull("一级菜单") =false Then
if dr1("一级不可见") =true
QAT(dr1("一级菜单")).Visible = false
else
QAT(dr1("一级菜单")).Visible = true
QAT(dr1("一级菜单")).Enabled = Not dr1("一级不可用")
If dr1.IsNull("二级菜单") =false Then
QAT(dr1("一级菜单"))(dr1("二级菜单")).Visible = Not dr1("二级不可见")
QAT(dr1("一级菜单"))(dr1("二级菜单")).Enabled = Not dr1("二级不可用")
End If
end if
ElseIf dr1("菜单分区") = "配置栏" Then
If dr1.IsNull("二级菜单") Then
ConfigBar(dr1("一级菜单")).Visible = Not dr1("一级不可见")
ConfigBar(dr1("一级菜单")).Enabled = Not dr1("一级不可用")
End If
End If
Next
加好友 
发短信
Post By：2020/11/20 15:01:00 [显示全部帖子]
