以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教一个菜单问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=21264)
--  作者：hiliuyong
--  发布时间：2012/7/7 1:49:00
--  请教一个菜单问题

我做了一个动态菜单授权，但是只能对一级菜单授权，如果是二三级菜单，有没有办法实现

 

On Error Resume Next
Dim drs As List(Of DataRow)
drs = DataTables("UserPower").Select("[UserID] = \'"& G_UserID &"\'")
For Each dr As DataRow In drs
    QAT.Items(dr("FrmName")).Enabled = True
Next

 

注：红色这句只对一级菜单有效
--  作者：狐狸爸爸
--  发布时间：2012/7/7 7:51:00
--  

不懂你的意思，其实只要确定规则，都可以实现。