-- 作者:有点灰2
-- 发布时间:2022/5/31 16:41: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
此主题相关图片如下:30.png
此主题相关图片如下:42.png
这个是怎么回事呢 刚开始调试还好好的
|