以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [原创]连接数据源时，项目事件为什么不生效？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=44803)
--  作者：kunge
--  发布时间：2014/1/9 11:53:00
--  [原创]连接数据源时，项目事件为什么不生效？
  我用的是外部数据库，数据源名称是天仙配  连接代码：
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



每个条件里，都加入了对话框，登陆时，没有显示对话框，说明这个事件没有生效．

这是什么问题呢？
--  作者：Bin
--  发布时间：2014/1/9 11:55:00
--  

If e.Name = "天仙配" Then  不成立
--  作者：kunge
--  发布时间：2014/1/9 13:05:00
--  
为什么不成立呢？帮助教程上，也是这样的啊
--  作者：Bin
--  发布时间：2014/1/9 14:18:00
--  
既然不执行,只能这么推测,为什么不成立,只能是名称不对吧.

建议您用这个方法：
http://www.foxtable.com/help/topics/1485.htm

先找出是哪一行出错，然后分析原因，搞不定，贴出代码，并告诉我们运行到哪一行出错，以及错误提示。