主题：未知 错误提提醒

Dim dta As Date = Date.Today.AddDays(3)
Dim dra As DataRow = DataTables("测量设备仪器总表").Find("校正日期 <= #" & dta & "#" and "设备状况"=false)
If dra IsNot Nothing Then
   MessageBox.Show("有测量仪器即将到校正日期!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
    Tables("测量设备仪器总表").Filter = "校正周期 <= #" & dta & "#  and  设备状况 =false "
    MainTable = Tables("测量设备仪器总表")
End If
此主题相关图片如下：259.png

我想增加一个设备状况的判断  这个报错是什么意思呢

If e.DataCol.Name = "设备状况" And e.DataRow("设备状况") = True Then
    e.DataRow("购入日期") = Date .Today
End If

If e.DataCol.Name = "校正日期" Then
    If e.DataRow("校正日期") < Date.Today.AddDays(3) Then
        e.DataRow("设备状况") = False
    End If
End If

Dim dc As DataCol = e.DataCol
Dim dr As DataRow = e.DataRow
If dc.Name = "购入日期" OrElse dc.Name = "校正周期" Then
    If dr.IsNull("购入日期") OrElse dr.IsNull("校正周期") Then
        dr("校正日期") = Nothing
    Else
        dr("校正日期") = dr("购入日期").AddDays(dr("校正周期"))
    End If
End If

 

 

 

我自己写的三段代码  能不能给融合到一段啊

 

不能融合，只能分开使用