Dim txt As String = e.Form.Controls("xmcxnr_mhcx").Text
Dim tbl As Table = Tables("项目查询_项目信息")
If txt = "" Then
tbl.Filter = ""
Else
txt = "'%" & txt & "%'"
tbl.Filter = "AAA Like " & txt & " Or BBB Like " & txt & " Or CCC Like " & txt
End If
之后怎么分页加载呀,就是怎么跟分页代码关联
With Tables("项目查询_项目信息").DataTable
.loadFilter = " "
.LoadTop =10
.LoadPage =0
.LoadReverse = True
.Load()
Forms("项目查询").Controls("共几页").Value = 1 & "/" & .TotalPages
才疏学浅,望指教