以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  判断时间字段等于今天日期，然后进行代码运行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=131786)

--  作者：李孝春 --  发布时间：2019/3/6 15:34:00 --  判断时间字段等于今天日期，然后进行代码运行 判断时间字段等于今天日期，然后进行代码运行 If dr1("拟发送时间")=Date.today Then                 If rw("电话") <> Nothing Then                     Dim ab As Row = Tables("系统信息").Current                     Dim drs = DataTables("告知内容").Select("姓名 = \'" & rw("姓名") & "\'And (是否告知 = \'否\' and 拟发送时间= \'date.today\')" ) 代码修正如下解决： Dim drs = DataTables("告知内容").Select("姓名 = \'" & rw("姓名") & "\'And (是否告知 = \'否\' and 拟发送时间=#" & Date.Today & "#)" ) [此贴子已经被作者于2019/3/6 15:46:47编辑过]