数据是分页加载的，想在窗口中用简单的按钮设置筛选功能，按如下设置后，发现只能在当前页中进行筛选，不能对所有加载页进行筛选，请老师指点。
在窗口中有如图按钮进行筛选功能
此主题相关图片如下：qq图片20180304111721.png
在“开始筛选”按钮设置：
Dim Filter As String
If e.Form.Controls("RadioButton2").Checked = True ' 如果付款状态选择了"已付"
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "是否决算 = 1 "
End If
If e.Form.Controls("RadioButton3").Checked = True ' 如果付款状态选择了"未付"
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "是否决算 = 0 Or 是否决算 Is Null"
End If
If Filter > "" Then
Tables("S征情况表").Filter = Filter
End If
e.Form.Controls("TextBox1").Value = 1 & "/" & DataTables("S征情况表").TotalPages
在“第一页”、“上一页”、“下一页”、“最后一页”按钮分别设置：
With DataTables("S征情况表")
.LoadPage = 0 '加载第一页
.Load()
e.Form.Controls("TextBox1").Value = 1 & "/" & .TotalPages
End With
With DataTables("S征情况表")
If .LoadPage > 0 Then
.LoadPage = .LoadPage - 1
.Load()
e.Form.Controls("TextBox1").Value = (.LoadPage + 1) & "/" & .TotalPages
End If
End With
With DataTables("S征情况表")
If .LoadPage < .TotalPages - 1
.LoadPage = .LoadPage + 1
.Load()
e.Form.Controls("TextBox1").Value = (.LoadPage + 1) & "/" & .TotalPages
End If
End With
With DataTables("S征情况表")
If .LoadPage < .TotalPages - 1
.LoadPage = .TotalPages - 1
.Load()
e.Form.Controls("TextBox1").Value = .TotalPages & "/" & .TotalPages
End If
End With
加好友 
发短信
Post By：2018/3/4 11:27:00 [只看该作者]
