我用VB做了个进销货程序，在模块中声明了变量，登录后自动给 struName赋值，但是窗体调用时显示不出当前登录的用户。我又试了别的办法，直接赋值给窗体的Form1.Label.Caption,但是执行Unload me的时候再进入的时候又显示不出用户名了。我是刚学的菜鸟，求高手写个自动返显用户名的代码给我。。

模块中声明的写法：public struName as string

声明了，但是在在在窗体调用的时候调用不了。

不会，只要声明了全局变量，在任何窗体里都访问的到，直接使用即可。
你检查下你的程序，看是不是在窗体调用前有什么初始化的过程把变量值还原了，有些控件事件在加载时，即使你没有人为产生也会先于窗体加载前调用的，如combobox中click事件

[ 本帖最后由 lowxiong 于 2013-2-26 07:00 编辑 ]

确实声明了，赋值之后第一次调用可以用，Unload了以后再进去看就不行了。。
请问登录成功后怎么将用户名赋值给StruName，在Form7中的Label6.Caption调用，Unload me以后也一直存有？
我贴代码出来~
模块中声明Public StruName As String
————————————————————————
LoginForm的一段
  Private Sub Command1_Click()
      Dim strSno As String
      Dim strSelect As String
       strSno = Trim(Text1.Text)                                                '检测用户名是否存在
       strSelect = "select 密码 from 用户登录信息表 where 用户名 = '" & strSno & "'"
       = adCmdText
       Adodc1.RecordSource = strSelect
       Adodc1.Refresh
      If Adodc1.Recordset.EOF = True Then
        MsgBox "用户名不存在，请重新输入！", , "登录提示信息："
        Text1.Text = ""
        Text2.Text = ""
        Text1.SetFocus
        Exit Sub
      End If
      If Adodc1.Recordset.Fields("密码") = Trim(Text2.Text) Then                '检测密码是否正确
         Unload Me
        StruName= StrSon ……………………………………赋值了。。
         MDIForm1.Show
——————————————————————————

Form7的时候
    Private Sub Form_Load()   
      Label6.Caption=StruName  ………………………………就是这里测试的时候不能显示
——————————————————————————
或者我在Login画面+    Form7.Label6.Caption=StruName
 可以显示一次，Unload Me之后就不显示了。。

新手不会……能不能帮我改改，我只是想返显现在登录的用户名而已……不知道该怎么做。。

[ 本帖最后由 olike 于 2013-2-26 07:56 编辑 ]

没有你全部源代码，我无法帮你调试修改的，你自己检查下你全部的工程里，是不是哪里有StruName=""的语句，只有执行该语句了才会改变该变量值的。

Dim strSno As String
......
StruName= StrSon ……………………………………赋值了。。
兄弟你看看，这两个变量量拼错了！

手打的，所以没注意。。

不要直接赋坿值，要变量的

如果直接打struname=""就等于直接赋值了，我想要变量的，本次登录的是123就赋值123，如果本次登录的是456就是456，随着登录的人变化而变化。。