我在筛选按钮设如下代码,筛选时出问题如图,但用开发者登录时,则可以正常筛选,请问老师是什么问题?
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
If Filter = "" Then filter = "1=1"
Dim f As String = vars("filter")
f = iif(f > "", f & " and " & filter, filter)
Tables("S征情况表").DataTable.LoadFilter = f
Tables("S征情况表").DataTable.Load
e.Form.Controls("TextBox1").Value = 1 & "/" & DataTables("S征情况表").TotalPages
此主题相关图片如下:qq图片20180207180204.png
