以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]自动提示并显示到期的行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=109281)
--  作者：webccc
--  发布时间：2017/11/8 14:38:00
--  [求助]自动提示并显示到期的行
我在项目事件中的AfterOpenProject的代码如下：
Dim dt As Date = Date.Today
Dim flt1 As String = "开始日期 > #" & dt & "#"
Dim flt2 As String = "结束日期 < #" & dt & "# and 是否已完成 = false"
Dim dr As DataRow = DataTables("日常工作").find(flt1 & flt2)
If dr IsNot Nothing Then
   messagebox.show("有事项提醒!","提示",messageboxbuttons.ok,messageboxicon.Information)
   Tables("日常工作").filter = flt1 & flt2
   MainTable = Tables("日常工作")
End If

提示如下：
.NET Framework 版本：2.0.50727.8794
Foxtable 版本：2017.10.26.1
错误所在事件：项目,AfterOpenProject
详细错误信息：
语法错误:“结束日期”运算符后缺少操作数。
重新打开项目后也没有收到messagebox的提示信息，请问代码是哪里错了吗？
麻烦各位老师看一下!
[此贴子已经被作者于2017/11/8 14:39:29编辑过]
--  作者：有点甜
--  发布时间：2017/11/8 14:44:00
--  

 

Dim dt As Date = Date.Today
Dim flt1 As String = "开始日期 > #" & dt & "#"
Dim flt2 As String = " and 结束日期 < #" & dt & "# and 是否已完成 = false"
--  作者：有点甜
--  发布时间：2017/11/8 14:45:00
--  
Dim dt As Date = Date.Today
Dim flt1 As String = "开始日期 > #" & dt.adddays(-10) & "#"
Dim flt2 As String = " and 结束日期 < #" & dt & "# and 是否已完成 = false"
Dim dr As DataRow = DataTables("日常工作").find(flt1 & flt2)
If dr IsNot Nothing Then
   messagebox.show("有事项提醒!","提示",messageboxbuttons.ok,messageboxicon.Information)
   Tables("日常工作").filter = flt1 & flt2
   MainTable = Tables("日常工作")
End If
[此贴子已经被作者于2017/11/8 14:47:34编辑过]
--  作者：webccc
--  发布时间：2017/11/8 14:52:00
--  
感谢有点甜老师！
重新打开项目后没有代码提示错误了，然后自动跳转到主表“日常工作”，但是没有messagebox.show的提示语“有事项提醒！”跳出来，也没有自动筛选出符合要求的行，请问是怎么回事啊？
--  作者：有点甜
--  发布时间：2017/11/8 14:55:00
--  
看3楼代码，控制好你的条件。
--  作者：webccc
--  发布时间：2017/11/8 15:03:00
--  
谢谢有点甜老师了！