一个案例，通过项目的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
[此贴子已经被作者于2012-10-23 13:27:23编辑过]
加好友 
发短信
Post By：2012/10/23 12:13:00 [只看该作者]
