主题：请教一个菜单问题

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

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

注：红色这句只对一级菜单有效

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