With
DataTables("日志")
.LoadFilter = "" '一定要清除加载条件
.LoadTop =
20
.LoadPage =
0
.Load()
End
With
With
DataTables("日志")
If .LoadPage <> 0
Then
.LoadTop = 20
.LoadPage = 0
.Load()
End
If
End
With
使用上面的代码进行分页加载，分页加载实现了，开启了表的后台筛选，但是使用下面代码过滤还是只能筛选当前页数据，没有筛选后台其他数据
dim txt as winform.textbox = e.form.controls("筛选")
dim t as table = tables("日志")
If txt = "" Then
t.Filter = ""
Else
Dim str As String = txt
Dim filter As String
filter = "1=1"
Dim nms() As String = {"用户","涉及表","涉及列","涉及行","操作","原始数据","类型"}
For Each s As String In str.Split(",")
s = s.Replace("%","[%]")
s = s.Replace("*","[*]")
s = "'%" & s & "%'"
Dim f As String = ""
For Each nm As String In nms
f &= " or " & nm & " like " & s
Next
filter &= " and (" & f.SubString(4) & ")"
Next
t.Filter = filter
End If
加好友 
发短信
Post By：2020/8/13 11:05:00 [只看该作者]
