以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  日期筛选出错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=124039)
--  作者：ZJZK2018
--  发布时间：2018/8/29 13:03:00
--  日期筛选出错
Dim tb As Table = Tables("合同款项明细_table4")
Dim filt As String = "[收款提醒] <= # " & Date.Today & "# And 款项状态 Like \'%未%\'"

tb.DataTable.LoadFilter = ""
tb.DataTable.LoadFilter = filt
tb.DataTable.Load() 
--  作者：有点甜
--  发布时间：2018/8/29 14:25:00
--  

1、报什么错？

 

2、改成

 

Dim filt As String = "[收款提醒] <= #" & Date.Today & "# And 款项状态 Like \'%未%\'"

 

或者

 

Dim filt As String = "[收款提醒] <= \'" & Date.Today & "\' And 款项状态 Like \'%未%\'"