- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 未知 错误提提醒 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=177680)
-- 发布时间：2022/5/30 22:26:00
-- 未知 错误提提醒
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
我想增加一个设备状况的判断 这个报错是什么意思呢
-- 发布时间：2022/5/30 22:46:00
--
Dim dra As DataRow = DataTables("测量设备仪器总表").Find("校正日期 <= #" & dta & "# and 设备状况=false")
-- 发布时间：2022/5/31 10:33:00
--
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
我自己写的三段代码 能不能给融合到一段啊
-- 发布时间：2022/5/31 10:36:00
--
不能融合，只能分开使用