蓝老师,通过窗口中的DateTimePicker1查找数据,如果DateTimePicker1中没有数据,则显示全部,该如何写?
Dim ymd As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")Tables("日记列表").Filter = "日期 = '" & ymd.Text & "'"
if ymd isnull then
Tables("日记列表").Filter = ""
end if