以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]外部数据源路径问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=116093)
--  作者：小巫仙
--  发布时间：2018/3/19 21:42:00
--  [求助]外部数据源路径问题
请问大神们，项目有多个外部数据源，每次打开时希望通过人工选择数据源的存储路径，现在已经通过beforeopenproject实现了可以选择路径，但需要每一个数据源都选一遍，有没有方法统一设置成所有数据源在同一个路径下，然后直接选一次路径就可以了？
--  作者：有点蓝
--  发布时间：2018/3/19 21:57:00
--  
代码怎么写的，贴出来看看
--  作者：小巫仙
--  发布时间：2018/3/19 22:42:00
--  
Dim Result As DialogResult
Result = MessageBox.Show("是否是主台账?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
e.C.mdb;Persist Security Info=False;"
Else
e.C.mdb;Persist Security Info=False;"
End If


我一共有7个外部数据源，要选7次
--  作者：有点蓝
--  发布时间：2018/3/19 23:00:00
--  
全局代码：

Public ismain As Integer = -1

BeforeConnectOuterDataSource事件

If ismain = -1 Then
    Dim Result As DialogResult
    Result = MessageBox.Show("是否是主台账?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    ismain = IIF(Result = DialogResult.Yes,1,0)
End If
If ismain = 1 Then
    e.ConnectionString = “xxxx”
Else
    e.ConnectionString = “xxxx”
End If
--  作者：小巫仙
--  发布时间：2018/3/20 19:30:00
--  
太感谢啦，问题解决啦！！！谢谢蓝老师！！！