- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]最近一直头疼的问题，不定时报错 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=147116)
-- 发布时间：2020/3/10 9:05:00
-- [求助]最近一直头疼的问题，不定时报错
此主题相关图片如下：111.png
此主题相关图片如下：222.png
-- 发布时间：2020/3/10 9:28:00
--
第1个错误提示：表格是不是动态加载的？所有相关的关联表要一起加载
-- 发布时间：2020/3/10 12:22:00
--
第一个不是很明白什么意思
-- 发布时间：2020/3/10 14:07:00
--
表格是不是使用datatables.load("表A")这种方式加载的？
-- 发布时间：2020/3/12 10:14:00
--
Dim Filter As String
Dim kaishi As Date = Date.Today()
Dim jieshu As Date = Date.Today.AddDays(1)
Filter = "[预约时间] >= \'" & kaishi & "\' and [预约时间] < \'" & jieshu & "\'" \'这里是小于不是小于等于
DataTables("维修工单").LoadFilter = Filter
DataTables("维修工单").Load
另外：软件启动链接A库，加载后动态链接到B库，和这个有关系吗？目前看打开软件后第一次查询会有这个报错，再点一次就查询正常了
-- 发布时间：2020/3/12 10:26:00
--
加载后动态链接到B库 -- 什么事件写了什么代码？
-- 发布时间：2020/3/12 11:20:00
--
AfterOpenProject:
\'动态设置数据源,必须放在全局代码设置之后
Dim jieguo As String = Functions.Execute("动态设置数据源")
If jieguo <> "可以使用" Then \'不知为何不加此判断会出错
Syscmd.Project.Exit()
Return \'这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
End If
Functions.Execute("动态设置数据源"):
Dim txt As String = "Provider=SQLOLEDB.1;Password={0};Persist Security Info=True;User ID={1};Initial Catalog={2};Data Source={3},{4}"
txt = CExp(txt,_sqlmima,_sqlyonghuming,_sqlmingcheng,_sqldizhi,_sqlduankou)
If Connections.TryConnect(txt) = False Then \'测试新的数据源是否可以连通
MessageBox.Show("数据源无法连通!")
Return "禁止使用"
End If
If Connections.Contains("yaoqing") Then \'因为不允许设置zhiyou,因此虚构一个yaoqing
Connections.Delete("yaoqing")
End If
Connections.Add("yaoqing",txt)
\'将zhiyou中的表转向yaoqing
Dim lst As List(Of String)
lst = Connections("zhiyou").GetTableNames
For Each nm As String In lst
If DataTables.Contains(nm) \'数据库中的表未必都在系统中
DataTables(nm).ChangeConnection("yaoqing")
End If
Next
Return "可以使用"
-- 发布时间：2020/3/12 13:34:00
--
建议把项目发给客服测试，估计是和表事件，或窗口表的处理有冲突
-- 发布时间：2020/3/12 13:35:00
--
另外改数据源建议还是使用这里的用法：http://www.foxtable.com/webhelp/topics/0682.htm