以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  未知错误  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=177707)
--  作者：有点灰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
图片点击可在新窗口打开查看
这个是怎么回事呢   刚开始调试还好好的
--  作者：有点蓝
--  发布时间：2022/5/31 16:47:00
--  
调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm，看哪一句代码出错
--  作者：有点灰2
--  发布时间：2022/5/31 16:53:00
--  
我就是调试后不知道错哪了  才问的
--  作者：有点蓝
--  发布时间：2022/5/31 16:56:00
--  
加了什么调试代码？哪一句出错？