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
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:30.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2022-5/20225311640335608.png)
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:42.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2022-5/20225311640328151.png)
这个是怎么回事呢 刚开始调试还好好的