主题：下面这段代码为何总是报错？

下面这段代码为何总是报错？

 

Dim cmd1 As New SQLCommand
Dim dt1 As DataTable
cmd1.C
cmd1.CommandText ="select [功能区],[功能组],[菜单项],[开通权限] from {组权限} where [用户名]= '李四'"
dt1 = cmd1.ExecuteReader
If dt1 IsNot Nothing Then
    For Each dr1 As DataRow In dt1.DataRows
        RibbonTabs(dr1("功能区")).Groups(dr1("功能组")).Items(dr1("菜单项")).Enabled =  (dr1("开通权限")= -1)
    Next
End If

 

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


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

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

点击浏览该文件:管理项目24_0519.zip