主题：请教菜单权限授权问题

只在菜单权限表里的菜单名填写，执行下面代码就成功授权，但同时在分组名里填写后，授权就不成功，下面红色的代码的逻辑不知道怎么写才正确，麻烦指导一下，谢谢！

For i As Integer = 0 To ribbontabs.count - 1
   RibbonTabs(i).Visible = False
Next


For Each dr As DataRow In DataTables("菜单权限表").Select("分组 = '" & user.name & "'" )
    If dr.IsNull("分组名") Then
        RibbonTabs(dr("菜单名")).Visible =  dr("可见")
        RibbonTabs(dr("菜单名")).Enabled = dr("可用")

    ElseIf dr.IsNull("按钮名") Then
        RibbonTabs(dr("菜单名")).Groups(dr("分组名")).Visible =  dr("可见")
        RibbonTabs(dr("菜单名")).Groups(dr("分组名")).Enabled =  dr("可用")
    Else
        RibbonTabs(dr("菜单名")).Groups(dr("分组名")).Items(dr("按钮名")).Visible =  dr("可见")
        RibbonTabs(dr("菜单名")).Groups(dr("分组名")).Items(dr("按钮名")).Enabled =  dr("可用")
    End If
Next

此主题相关图片如下：图1.jpg


此主题相关图片如下：图2.jpg

我之前也这样写过，执行也不行，现按你的代码执行还是不成功，如图3

 

此主题相关图片如下：图3.jpg

还是不行，结果为图4

此主题相关图片如下：图4.jpg

我试过这样写代码，但是执行还是授权不成功啊