主题：为何这个全局变量值不能传递？

在打开项目及变理用户时，显示这个全局变量值，但是实际上后二项显示为空值。

有关代码：

项目事件

 

BeforeConnectOuterDataSource

 

Dim bj_ip As String

Dim IPAdress As System.Net.IPAddress

Dim HostName As String

HostName = System.Net.Dns.GetHostName '获得本机的机器名

IPAdress = System.Net.Dns.GetHostByName(HostName).AddressList.GetValue(0) '获得本机的IP

'本机IP地址

Vars("ip_add") = IPAdress.ToString

MessageBox.Show("本机IP: " & Vars("ip_add"))

 

If e.name = "成绩" Then

    e.C & e.ProjectPath & "订单.mdb;Persist Security Info=False"

End If

 

AfterOpenProject

 

MessageBox.Show("项目打开时IP地址:" & Vars("ip_add"))

 

LoadUserSetting

 

MessageBox.Show("本次登录IP地址:" & Vars("ip_add"))

项目文件：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:全局变量.zip

可以了：