Dim dt As Date = Date.Today.AddDays(10)Dim flt As String = "[截止时间] <= #" & dt & "# and [截止时间] >= #"& Date.Today &"# " '10天内即将到期Flt= Flt & "and [不再进行到期提示] = false " '同时逻辑列为falseMessageBox.Show(flt)
MessageBox.Show(Flt &="and [不再进行到期提示] = False ")
Dim cout As Integer = DataTables("合同").compute("Count(截止时间)",flt) '统计数量
MessageBox.Show(cout)
[此贴子已经被作者于2016/1/27 23:43:16编辑过]