专家坐堂-关于 BeforeConnectOuterDataSourceFoxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于 BeforeConnectOuterDataSource  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=152994)

--  作者：fvcfox
--  发布时间：2020/7/28 11:44:00
--  关于 BeforeConnectOuterDataSource

请教老师，测试了如下代码，在登陆窗口的服务器IP的值实现不了修改数据源的 127.0.0.1

If e.Name = "二维码" Then
Dim IP As String = e.User.ExtendedValues("服务器IP") \'获得用户输入的IP
If IP > "" \'如果用户自己输入了IP
\'则用用户输入的IP替换原来的IP
e.ConnectionString = e.ConnectionString.Replace("127.0.0.1", IP)
End If
End If

--  作者：有点蓝
--  发布时间：2020/7/28 11:51:00
--

调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm

msgbox(e.Name)
If e.Name = "二维码" Then
Dim IP As String = e.User.ExtendedValues("服务器IP") \'获得用户输入的IP
msgbox(IP)
If IP > "" \'如果用户自己输入了IP
\'则用用户输入的IP替换原来的IP
msgbox(e.ConnectionString)
e.ConnectionString = e.ConnectionString.Replace("127.0.0.1", IP)
msgbox(e.ConnectionString)
End If
End If

--  作者：fvcfox
--  发布时间：2020/7/28 12:03:00
--
测试了messagebox.show(e.name)，有两个数据源，我用如下还是不行

If e.Name = "二维码" Or e.Name = "快递单" Then
Dim IP As String = e.User.ExtendedValues("服务器IP") \'获得用户输入的IP
If IP > "" \'如果用户自己输入了IP
\'则用用户输入的IP替换原来的IP
e.ConnectionString = e.ConnectionString.Replace("127.0.0.1", IP)
End If
End If

--  作者：有点蓝
--  发布时间：2020/7/28 12:12:00
--
所有msgbox都弹出什么内容？

--  作者：fvcfox
--  发布时间：2020/7/29 9:29:00
--

msgbox(e.Name)
If e.Name = "预算执行管理" Then
Dim IP As String = e.User.ExtendedValues("服务器IP") \'获得用户输入的IP
msgbox(IP)
If IP > "" \'如果用户自己输入了IP
\'则用用户输入的IP替换原来的IP
msgbox(e.ConnectionString)
e.ConnectionString = e.ConnectionString.Replace("172.16.20.18", IP)
msgbox(e.ConnectionString)
End If
End If

此主题相关图片如下：qq截图20200729092729.jpg
奇怪，e.name名是对应的，怎么不往下执行

--  作者：有点蓝
--  发布时间：2020/7/29 9:43:00
--
其它msgbox弹出什么内容？

--  作者：fvcfox
--  发布时间：2020/7/29 10:07:00
--
没往下运作，没有弹出提示

--  作者：有点蓝
--  发布时间：2020/7/29 10:21:00
--
不是使用的内置登录窗口，自定义的登录窗口？

--  作者：fvcfox
--  发布时间：2020/7/29 10:39:00
--
弹出第一个e.name窗口后，就弹出系统的用户登陆窗口

此主题相关图片如下：qq截图20200729092729.jpg

此主题相关图片如下：qq截图20200729103320.jpg

[此贴子已经被作者于2020/7/29 10:39:49编辑过]

--  作者：有点蓝
--  发布时间：2020/7/29 10:55:00
--
不对。内置登录窗口肯定是比BeforeConnectOuterDataSource 事件先弹出来的。不可能比BeforeConnectOuterDataSource 事件晚。

使用的是什么版本的foxtable？请上传实例看看