判断时间字段等于今天日期,然后进行代码运行
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编辑过]