| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]如果筛选数据为空如何处理？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=131495) |
| -- 作者：chh2321 -- 发布时间：2019/2/27 20:46:00 -- [求助]如果筛选数据为空如何处理？ 老师，下段代码筛选加载数据，如果有符合条件的数据，正常加载；如果没有符合条件的数据，就会弹出：“未将对象引用设置到对象的实例。” 请问如何解决？ 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 Next End If |
| -- 作者：有点甜 -- 发布时间：2019/2/27 20:51:00 -- 修改你currentChanged事件代码
If e.table.current Is Nothing Then return
\'本来代码 |