以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 无法使用appendload函数 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=94427) |
-- 作者:qscwdvefb -- 发布时间:2016/12/23 10:34:00 -- 无法使用appendload函数 我使用的是外部数据源分页加载数据,并使用appendload追载搜索结果,但是换了另一个外部数据源之后代码就运行不了了,请问是什么原因?(两个外部数据源的数据表名字、各表字段的名字都一样) ![]() |
-- 作者:qscwdvefb -- 发布时间:2016/12/23 10:41:00 -- 在我的电脑上可以运行,但是别人换了外部数据源并且发布出去给别的用户后就运行不了 ![]() |
-- 作者:有点蓝 -- 发布时间:2016/12/23 11:32:00 -- 代码呢?上传看看 |
-- 作者:qscwdvefb -- 发布时间:2016/12/23 12:12:00 -- Dim dr As DataRow Dim filter As String With e.Form.Controls("TextBox1") If .Value IsNot Nothing Then If filter > "" Then filter = filter & " And " End If filter = "[F398] = \'" & Forms("目录").Controls("TextBox1").value &"\'" End If End With With e.Form.Controls("TextBox2") If .Value IsNot Nothing Then If filter > "" Then filter = filter & " And " End If filter = "[F399] = \'" & Forms("目录").Controls("TextBox2").value &"\'" End If End With dr = DataTables("T28").Find(filter ) If dr Is Nothing Then Dim drs As List(of DataRow) = DataTables("T28").AppendLoad(filter) If drs.Count > 0 Then Dim wz As Integer = Tables("T28").FindRow(drs(0)) If wz >= 0 Then Tables("T28").Position = wz End If End If |
-- 作者:狐狸爸爸 -- 发布时间:2016/12/23 12:59:00 -- 既然不行,是出错吗? 如果是的,错误提示是什么? 或者没有出错,只是没有加载数据? 自己有没有调试分析,看看合成的条件是什么: http://www.foxtable.com/webhelp/scr/1485.htm |
-- 作者:qscwdvefb -- 发布时间:2016/12/23 16:02:00 -- 这段代码在我电脑上的系统是可以运行的,然后我在客户的电脑上重新做一个一样的系统,数据也是分页加载后台数据,代码都是一样的。当时两个系统都是用同一个外部数据源,我当时在客户的电脑测试过也是可以运行的,能够追载数据。但是那个客户好像换了另外的数据源后代码就不管用了(就是追载不了想要的数据) |
-- 作者:狐狸爸爸 -- 发布时间:2016/12/23 16:15:00 -- 一般是没有符合条件的行,或者当前设置了筛选条件,追载的数据不符合筛选条件,被隐藏了。 最好实际到客户电脑调试分析一下。
|
-- 作者:qscwdvefb -- 发布时间:2016/12/24 15:32:00 -- 问题解决了,是发布时出了问题 |