主题：[求助]加载当天数据时，如果没有会报错

老师好！

有数据时没事，没有数据时报错如下图，用try语句也避免不了，是什么原因？

 

[日期]列是datatime格式（如：2019-07-02 19:49），数据是access内部数据源。

代码如下：
DataTables("邮件管理").LoadFilter  = "日期 >= #" & Date.today & "# and 日期 < #" & Date.today.adddays(1) & "#"
DataTables("邮件管理").Load() 

 

此主题相关图片如下：截屏图片 (1).jpg

勾选上面“显示详细信息”看是哪个事件有问题？改正代码

是主表的CurrentChanged事件报错。

用的代码是副本Table之行位置联动，但是看不出什么问题？

 

If Forms("邮件管理").Opened Then '如果窗口已经打开
    Dim dr As DataRow = e.Table.Current.DataRow
    Dim wz As Integer = Tables("邮件管理_Table1").FindRow(dr)
    If wz >=0 Then
        Tables("邮件管理_Table1").Position = wz
    End If
End If

dr你要判断是否为空

开始是有判断的，如下，但是也不行。所以就改成帮助中的代码了。

 

If Forms("邮件管理").Opened Then '如果窗口已经打开
    Dim dr As DataRow = e.Table.Current.DataRow
    If dr Is Nothing Then
        Return
    Else
        Dim wz As Integer = Tables("邮件管理_Table1").FindRow(dr)
        If wz >=0 Then
            Tables("邮件管理_Table1").Position = wz
        End If
    End If
End If

If Forms("邮件管理").Opened andalso e.Table.Current isnot nothing Then '如果窗口已经打开

谢谢蓝老师！

用老师的代码，然后把bin文件夹删除，才行了。