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