判断时间字段等于今天日期，然后进行代码运行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

判断时间字段等于今天日期，然后进行代码运行

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编辑过]

主题：判断时间字段等于今天日期，然后进行代码运行