- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 查找代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=67044)
-- 发布时间：2015/4/18 9:28:00
-- 查找代码
此主题相关图片如下：3.jpg
各位大侠，需求是：查找某个时间段、并且核销=false、并且考勤等于\'○\', \'×\', \'△\', \'$\'的数据
Dim ks As WinForm.ComboBox = e.Form.Controls("ComboBox2")
Dim f As String = "1=1"
If ks.Text > "" Then
f &= " and " & ks.Text & " in (\'○\', \'×\', \'△\', \'$\')"
End If
\'msgbox(f)
e.Form.Controls("Table4").Table.Filter = f & "And "&"审核= false"
这句代码要怎么改？
-- 发布时间：2015/4/18 9:38:00
--
If ks.Text > "" Then
f &= " and 时间段 = #" & ks.Text & "#"
End If
e.Form.Controls("Table4").Table.Filter = f & "And "&"审核= false and 考勤 in (\'○\', \'×\', \'△\', \'$\')"