以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  显示当前登录用户???  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=49394)

--  作者:tina2012
--  发布时间:2014/4/17 11:49:00
--  显示当前登录用户???
在窗口中增加一个按钮,用于显示当前登录用户, 我是自定义的登录窗口,用户名保存在_UserName中,以下代码不能显示,怎么回事??请帮忙
全局代码:
Public _UserName As String
Public _UserGroup As String
Public _UserId As String
Public _GroupId As String

按钮代码
MessageBox.Show("当前登录用户:" & _UserName)

点击之后,只显示“当前登录用户:”,用户名不能显示出来,怎么回事??

--  作者:Bin
--  发布时间:2014/4/17 11:51:00
--  
你登录的时候,并没有为 _UserName 赋值,所以此时 _UserName 是空的


--  作者:有点甜
--  发布时间:2014/4/17 11:51:00
--  
 你需要在自定义登陆窗口那里给这些变量赋值才行。
--  作者:tina2012
--  发布时间:2014/4/17 11:54:00
--  
If e.Form.Controls("PassWord").Value = dr("Password") Then
    _UserName = UserName
    _UserGroup = dr("Group")
    _UserId = dr("Id")
    e.Form.Close
Else
    Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

登陆后已经赋值了啊,

以下代码能起作用,状态栏里能显示,为什么??

StatusBar.Message1= "当前用户:" & _UserName &  "  今天日期:"  & Date.Today

--  作者:有点甜
--  发布时间:2014/4/17 11:57:00
--  

 

如果这句代码正常

 

StatusBar.Message1= "当前用户:" & _UserName &  "  今天日期:"  & Date.Today
 
那肯定是你在那个地方改变了 _UserName 的值了,看看你代码

--  作者:Bin
--  发布时间:2014/4/17 11:57:00
--  
你是不是在没赋值之前弹出了.或者之后又清空了? 具体请上个例子看看吧