Dim v1 As String = e.form.controls("textbox1").text
Dim v2 As String = e.form.controls("textbox2").text
Tables("高考信息查询表").Filter = "zdffs >= " & v1 & " and zgffs <= " & v2
Dim Filter As String
Filter = "zdffs >= " & v1 & " and zgffs <= " & v2 '试试看
With e.Form.Controls("院校地区:")
If .Value IsNot Nothing Then
Filter = Filter & “and" & ”"yxdq = '" & .Value & "'"
End If
End With
[此贴子已经被作者于2018/3/7 10:42:26编辑过]