为何两端代码显示不一样，一段出错，一段不出错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

第一段不出错

For Each dr As DataRow In DataTables("菜单权限表").Select("用户分组 = '" & User.Group & "' and 用户名 = '" & User.Name & "'" )

If dr.IsNull("分组名") Then

RibbonTabs(dr("菜单名")).Visible = Not dr("菜单不可见")

RibbonTabs(dr("菜单名")).Enabled = Not dr("菜单不可用")

ElseIf dr.IsNull("按钮名") Then

RibbonTabs(dr("菜单名")).Groups(dr("分组名")).Visible = Not dr("分组不可见")

RibbonTabs(dr("菜单名")).Groups(dr("分组名")).Enabled = Not dr("分组不可用")

Else

RibbonTabs(dr("菜单名")).Groups(dr("分组名")).Items(dr("按钮名")).Visible = Not dr("按钮不可见")

RibbonTabs(dr("菜单名")).Groups(dr("分组名")).Items(dr("按钮名")).Enabled = Not dr("按钮不可用")

End If

第二段出错，显示数据库菜单权限表

Dim cmd As new SQLCommand

Dim dt As DataTable

cmd.CommandText = "Select * From {菜单权限表} where 用户分组 = '" & User.Group & "' and 用户名 = '" & User.Name & "'"

dt = cmd.ExecuteReader() '记得将参数设置为True

For Each dr As DataRow In dt.DataRows