主题：请教：关于自定义用户权限的问题（已解决）

在项目事件：LoadUserSetting 中对用户及分组进行菜单方面的选择，我是这样写的，但是不起作用

 

请看此代码错在何处

 

Dim UserName As String = _UserName
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim dr As DataRow
cmd.C
cmd.CommandText = "Select * From {Users} Where [Name] = '" & UserName & "'"
dt = cmd.ExecuteReader
dr = dt.DataRows(0)

Dim fz As String =dr("Group")
Select Case fz
    Case "采购"
        RibbonTabs("销售").Visible = False
RibbonTabs("财务").Visible = False

     Case "销售"
        RibbonTabs("财务").Visible = False
RibbonTabs("采购").Visible = False
     Case "财务"
        RibbonTabs("销售").Visible = False
RibbonTabs("采购").Visible = False
     End Select

 

 

不会出现提示MessageBox.Show(fz)

有一个错误提示，看下图

此主题相关图片如下：项目错误.jpg

MessageBox.Show(fz)返回是正确的，但是不知为何没有起作用，另外，还会出现三楼的错误提示

改什么名，我用不同用户名进入都试过了，无论以何用户，不论用户是何组，结果都是一样，菜单的所有功能区都显示了

不明白，dr = dt.DataRows(0)，这句的意思不就是用户表的第一行数据吗，而且我返回的FZ，确实就是当前用户的分组啊

另外，我想请教一下，LoadUserSetting 事件时，是否所有表都已打开了？

LoadUserSetting 事件时，是否所有表都已打开了？

我想问一下，是登录窗口和LoadUserSetting事件哪个先执行？

MessageBox.Show(dt.DataRows.Count)=1

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新建文件夹.rar

用贺老师做的示例

是的，只 能是放在登录窗口的确定中了，谢谢曹版！