- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]全局变量取值 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=24786)
-- 发布时间：2012/10/23 12:13:00
-- [求助]全局变量取值
一个案例，通过项目的SystemIdle事件，在状态栏分别显示部门、姓名和权限，代码如下，运行后发现全局变量quanx不能取值，不知问题出在哪里，请各位老师指教，谢谢！！
全局代码
Public quanx As String
项目LoadUserSetting事件
Dim cmd As New SQLCommand
cmd.CommandText = "Select 权限 From {用户} Where [姓名] = \'" & UserName & "\'"
quanx = cmd.ExecuteScalar()
MessageBox.Show(quanx)
项目SystemIdle事件
With CurrentTable
Dim Str1 As String = " 部门: " & User.Group & " 姓名: " & User.Name & " 权限: " & quanx
Str1 = Str1 & " 当前表名: " & .Name & " 总行数: "
Str1 = Str1 & .Rows.Count & " 当前行: " & (.Position + 1)
StatusBar.Message1 = Str1
End With
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:案例2.table |
[此贴子已经被作者于2012-10-23 13:27:23编辑过]
-- 发布时间：2012/10/23 12:53:00
--
cmd.CommandText = "Select 权限 From {用户} Where [姓名] = \'" & UserName & "\'"
这一句掉了个点
cmd.CommandText = "Select 权限 From {用户} Where [姓名] = \'" & User.Name & "\'"
-- 发布时间：2012/10/23 13:01:00
--
谢谢blueskyyq老师的指教，问题解决了。