[求助]如果筛选数据为空如何处理？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，下段代码筛选加载数据，如果有符合条件的数据，正常加载；如果没有符合条件的数据，就会弹出：“未将对象引用设置到对象的实例。”

请问如何解决？

Dim d1 As Date = e.Form.Controls("DateTimePicker8").Value

Dim d2 As Date = e.Form.Controls("DateTimePicker9").Value

If d1 = Nothing Or d2 = Nothing Then

MessageBox.Show("起始或结束日期都不能为空!","友情提醒", MessageBoxButtons.OK,MessageBoxIcon.Warning)

Else

For Each c As object In e.Form.Controls("GroupBox7").Children

If c.checked = True Then

With DataTables("tblPAdmission")

.LoadFilter = c.Text & ">=#" & d1 & "# and " & c.Text & "<=#" & d2 & "#"

.Load()

End With

End If

主题：[求助]如果筛选数据为空如何处理？