我用的是外部数据库,数据源名称是天仙配 连接代码:Provider=SQLOLEDB;Password=tianxianpei;Persist Security Info=True;User ID=sa;Initial Catalog=tianxianpei;Data Source=mytxp.xicp.net,1433
服务器在客户的局域网中,客户想要优先使用局域网连接,
我在用户属性中增加了扩展属性IP
在项目事件BeforeConnectOuterDataSource中加入一下代码
If e.Name = "天仙配" Then
Dim IP As String = e.User.ExtendedValues("IP") '获得用户输入的IP
If IP = " " Then
e.ConnectionString = e.ConnectionString.Replace("mytxp.xicp.net","192.168.0.101")
MessageBox.Show("Visual Basic一点不难!", "提示")
End If
If IP > " " And IP="2" Then
MessageBox.Show("Visual Basic一点不难!", "提示")
Else
MessageBox.Show("Visual Basic一点不难!", "提示")
e.ConnectionString = e.ConnectionString.Replace("mytxp.xicp.net",IP)
End If
End If
每个条件里,都加入了对话框,登陆时,没有显示对话框,说明这个事件没有生效.
这是什么问题呢?