'查找数据库对应的权限
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim dr As DataRow
cmd.C
cmd.CommandText = "Select * From {UserPower} Where [UserID] = '" & tmpUserID & "' AND Enabled='1'"
dt = cmd.ExecuteReader
For Each dr As DataRow In dt.DataRows
'DataTables("UserPower").PeplaceFor("Enabled", 1, "UserID = '" & dr("UserID") & "' AND Ribb AND Groups= '" & dr("Groups") & "' AND Items= '" & dr("Items") & "' ")
Next
红色为报错的地方
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/jpg.gif)
此主题相关图片如下:报错.jpg