谢谢兴刚老师！我自己刚才改成这样也可以了（分成日期是否为空，就是麻烦点）：
Dim sbxh As WinForm.ComboBox = e.Form.Controls("设备型号")
Dim sbxlh As WinForm.TextBox = e.Form.Controls("设备序列号")
Dim StartDate As WinForm.DateTimePicker = e.Form.Controls("起始日期")
Dim EndDate As WinForm.DateTimePicker = e.Form.Controls("截止日期")
If StartDate.Value <> Nothing And EndDate.Value <> Nothing Then
Tables("安装").Filter = "设备型号 Like '*" & sbxh.Text & "*' And 设备序列号 Like '*" & sbxlh.Text & "*' And 装机时间 >= #"& StartDate.Value &"# And 装机时间 <= #"& EndDate.Value &"# "
Tables("安装").Sort = "设备序列号"
End If
If StartDate.Value = Nothing And EndDate.Value = Nothing Then
Tables("安装").Filter = "设备型号 Like '*" & sbxh.Text & "*' And 设备序列号 Like '*" & sbxlh.Text & "*'"
Tables("安装").Sort = "设备序列号"
End If
加好友 
发短信
Post By：2014/1/1 19:19:00 [显示全部帖子]
此主题相关图片如下：筛选.jpg