以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]最近一直头疼的问题,不定时报错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=147116)

--  作者:智友软件工作室
--  发布时间:2020/3/10 9:05:00
--  [求助]最近一直头疼的问题,不定时报错

图片点击可在新窗口打开查看此主题相关图片如下:111.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:222.png
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2020/3/10 9:28:00
--  
第1个错误提示:表格是不是动态加载的?所有相关的关联表要一起加载

第二个错误提示:微信通知列的字符长度不够:http://www.foxtable.com/webhelp/topics/0036.htm
--  作者:智友软件工作室
--  发布时间: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