Foxtable(狐表)用户栏目专家坐堂 → [求助]如果筛选数据为空如何处理?


  共有2894人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
chh2321
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:253 积分:2573 威望:0 精华:0 注册:2016/8/8 9:50:00
[求助]如果筛选数据为空如何处理?  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/2/27 20:51:00 [只看该作者]

修改你currentChanged事件代码

 

If e.table.current Is Nothing Then return

 

'本来代码


 回到顶部