以文本方式查看主题

-  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
--  
问题解决了,是发布时出了问题