去掉加黑代码提示：“未将对象引用设置到对象的实例。”怎样窗口表在筛选状态时新增行？

谢谢！

1、打开窗口时，只显示[制作日期]是当天的数据，窗口的AfterLoad：
Tables("通知书_Table1").Filter = "制作日期 >= \'" & Date.Today & "\' and 制作日期 < \'" & Date.Today.AddDays(1) & "\'"

2、新增行按钮：

\'Tables("通知书_Table1").Filter = ""
Dim r As Row = Tables("通知书_Table1").Current
If r IsNot Nothing Then
    If r.IsNull("案号")
        MessageBox.Show("案号不能为空!")
    Else
        If DataTables("通知书").HasChanges Then
            If MessageBox.Show("表数据已经被修改,是否保存?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
                DataTables("通知书").Save()
            End If
        End If
        Tables("通知书_Table1").AddNew()
        Tables("通知书_Table1").Current("制作日期") = Date.today
    End If
Else
    Tables("通知书_Table1").AddNew()
    Tables("通知书_Table1").Current("制作日期") = Date.today
End If

    ...............

Else
    Dim nr = Tables("通知书_Table1").AddNew()
    nr("制作日期") = Date.today
End If