老师好!sql数据源,窗口表新增行时报错如下,有时却不报错,是什么原因?

此主题相关图片如下:截屏图片.jpg


此主题相关图片如下:截屏图片1.jpg

新增行时,窗口表筛选条件为本年,[复核人]为当前用户:
Dim y As Integer = Date.Today.Year
Dim dt1 As New Date(y, 1, 1)
Dim dt2 As New Date(y, 12, 31)
Dim Filter As String
Filter = "报送日期 >= '" & dt1 & "' And 报送日期 <= '" & dt2 & "' And 复核人 = '" & _UserName & "'"
DataTables("复核表").LoadFilter = Filter
DataTables("复核表").Load()
新增行代码:
Dim t As Table = Tables("工程数据_Table1")
Dim nr As Row = t.addnew()
nr("编制日期") = Date.today
nr ("报送日期") = Date.Today
nr("接收日期") = Date.today
nr("复核人") = _UserName