| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 取值问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=88294) |
| -- 作者：天蝉一线 -- 发布时间：2016/7/31 8:11:00 -- 取值问题 我有这么一段代码 cmd.CommandText = "SELECT * Fro m {授权} where [用户角色] like \'%" & _usergroup & "%\' 比如：授权的用户角色列值是“财务主管，仓管员”，当用户的角色是财务主管的时候，这个语句的返回值是1，当用户的角色是仓管员的时候，这个语句的返回值也应该是1，但是实际返回值是0，不知道是哪的问题?
|
| -- 作者：大红袍 -- 发布时间：2016/7/31 9:14:00 -- 代码没问题，弹出值看一下
msgbox("ab" & _usergroup & "cd") |
| -- 作者：天蝉一线 -- 发布时间：2016/7/31 9:19:00 -- ab仓管员cd |
| -- 作者：天蝉一线 -- 发布时间：2016/7/31 9:23:00 -- cmd.ExecuteReader() 返回值是零，应该是1才对 |
| -- 作者：大红袍 -- 发布时间：2016/7/31 9:44:00 -- 代码没问题，上传实例说明。 |
| -- 作者：天蝉一线 -- 发布时间：2016/7/31 9:56:00 -- Dim cmd As New SQLCommand Dim dt As DataTable cmd.Connecti o n Name = "cwgl" Select Case e.Link.text Case "部门信息" Dim ckcd As String = "部门信息设置" cmd.CommandText = "SELECT * Fro m {授权} where [用户角色] like \'%" & _usergroup & "%\' And [窗口菜单]=\'" & ckcd & "\'" dt = cmd.ExecuteReader() \' msgbox("ab" & _usergroup & "cd") msgbox(dt.DataRows.Count ) If dt.DataRows.Count=1 Then Forms("部门信息设置").open Else MessageBox.Show("您无权限操作此菜单!","提示", MessageBoxButtons.OK, MessageBoxIcon.Information) Return End If |
| -- 作者：大红袍 -- 发布时间：2016/7/31 10:02:00 -- 代码没问题。如果查不到，说明你表数据有问题，真的找不到。 |
| -- 作者：天蝉一线 -- 发布时间：2016/7/31 10:51:00 -- 已解决，谢谢 |