专家坐堂-[求助]Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=177778)

--  作者：wusim
--  发布时间：2022/6/3 15:13:00
--  [求助]

我想筛选指定工作日期，存在问题包含挂挡的记录，请问怎样修改？
Dim Filter As String
With e.Form.Controls("工作日期查找")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "工作日期 = #" & .Value & "#"
End If
End With
Tables("表1").Filter = "[存在问题] Like \'%挂挡%\' Or [存在问题] Like \'挂挡%\' Or[存在问题] Like \'%挂挡\'

--  作者：狐狸爸爸
--  发布时间：2022/6/3 15:53:00
--

With e.Form.Controls("工作日期查找")
If .Value IsNot Nothing Then
   Tables("表1").Filter = "工作日期 = #" & .Value & "# And ([存在问题] Like \'%挂挡%\' Or [存在问题] Like \'挂挡%\' Or[存在问题] Like \'%挂挡\')"
Else
  Tables("表1").Filter =  "[存在问题] Like \'%挂挡%\' Or [存在问题] Like \'挂挡%\' Or[存在问题] Like \'%挂挡\'
End If
End With

[此贴子已经被作者于2022/6/3 15:54:18编辑过]