主题：动态加载表，怎么分页加载

删除这个代码

 

 .LoadFilter = "" '清除加载条件

 

或者改成

 

 .LoadFilter = 内部函数获取加载条件 '清除加载条件

这样写可以，

Functions.Execute("单表加载",DataTables("中标统计"))
With DataTables("中标统计")
    .LoadPage = 0 '加载第一页
    .LoadTop =  20 '每页10行

内部函数获取加载条件，后面这样写不报错，但加载条件不起作用，有什么问题呢？
    .LoadFilter = Functions.Execute("单表加载"，DataTables("中标统计"))

回复22楼，你内部函数有问题。你最后要return合成的条件的，比如

 

return "第一列='123' and 第二列='abc'"

有点甜老师，没理解到你这个意思。

比如我在查询筛选的时候：

With DataTables("中标统计")
    .LoadFilter = filter And  Functions.Execute("单表加载",DataTables("中标统计"))

    .LoadFilter = iif(filter>"", filter & " And ", "") & Functions.Execute("单表加载",DataTables("中标统计"))

你执行内部函数以后，最后要返回一个字符串啊。

 

http://www.foxtable.com/webhelp/scr/1486.htm

 

老师，这个在查询的时候报错

.NET Framework 版本：2.0.50727.8762
Foxtable 版本：2018.3.9.1
错误所在事件：窗口,中标统计管理窗口,所属机构,ValueChanged
详细错误信息：
没有为 字符串“所属机构 = '巴中办事处' And ” 和 类型“DataTable” 定义运算符“&”。

贴出内部函数代码。

Dim dt As DataTable=args(0)
Tables("账号密码").Filter = ""

Dim dr As DataRow=DataTables("账号密码").sqlFind("账号='" & _UserName  & "'")
If dr Is Nothing  Then Exit Function

Dim lst1 As new List(of String)
Dim lst2 As new List(of String)
lst1.AddRange(dr("加载集合").split(","))

'加载范围
Dim filt As String = Nothing
For Each ls As String In lst1
    If filt<>"" Then filt=filt & " OR "
    filt=filt & "所属机构= '" & ls & "'"
Next
'加载
dt.LoadFilter=filt
dt.Load
Return dt

Dim dt As DataTable=args(0)
Tables("账号密码").Filter = ""

Dim dr As DataRow=DataTables("账号密码").sqlFind("账号='" & _UserName  & "'")
If dr Is Nothing  Then Exit Function

Dim lst1 As new List(of String)
Dim lst2 As new List(of String)
lst1.AddRange(dr("加载集合").split(","))

'加载范围
Dim filt As String = Nothing
For Each ls As String In lst1
    If filt<>"" Then filt=filt & " OR "
    filt=filt & "所属机构= '" & ls & "'"
Next
'加载
Return filt