我想在连接外部数据库前,取得本机IP地址,并赋值给全局变量。
在打开项目及变理用户时,显示这个全局变量值,但是实际上后二项显示为空值。
有关代码:
项目事件
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"))
项目文件: