Dim Filter As String
With e.Form.Controls("ComboBox1")
If .Value IsNot Nothing Then
Filter = "姓名 like '%" & .Value & "%'"
vars("姓名") = .Value
End If
End With
With e.Form.Controls("DateTimePicker1")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "日期 >= #" & .Value & "#"
vars("起始日期") = .Value
End If
End With
With e.Form.Controls("DateTimePicker2")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "日期 <= #" & .Value & "#"
vars("终止日期") = .Value
End If
End With
If Filter > "" Then
Tables("表A").Filter = Filter
Else
MessageBox.Show("请输入姓名,起始日期和终止日期进行查询.")
End If
‘ 如果输入了三个条件：姓名，起始日期，终止日期，但是没有筛选到任何数据的信息提示， 语句怎么写呢？
加好友 
发短信
Post By：2018/10/15 17:50:00 [显示全部帖子]
