主题：查找按键代码

以下是引用czy在2014-12-13 19:51:00的发言：
Dim name As String = e.Form.Controls("ComboBox1").value
If name = ""
    MessageBox.Show("客户名称不能为空")
    Return
End If
Dim d As Date = e.Form.Controls("DateTimePicker1").value
Dim d1 As Date = e.Form.Controls("DateTimePicker2").value
If d = Nothing
    MessageBox.Show("开始日期不能为空")
    Return
End If
If d1 = Nothing
    MessageBox.Show("结束日期不能为空")
    Return
End If
Tables("销售主表").Filter = "客户 = '" & name & "' and 日期 > = #" & d & "# and 日期 <= #" & d1 & "#"

谢谢了   不过这样查询不太方便    平时查询时只输入需要的条件   其他的肯定是空的  应该怎么搞呢   我照您的改出来好长啊