- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教:多条件筛选的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=23051)
-- 发布时间：2012/8/31 12:07:00
-- 请教:多条件筛选的问题
以下代码可以筛选出符合条件的数据.
我想,加一个CheckBox控件,参加筛选,
就是说,如果这个控件选中时,一并查找 "状态"列为True的数据,如果非选中时,则一并查找"状态"列为False的数据
Dim Filter As String
With e.Form.Controls("ddbh")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "订单编号 = \'" & .Value & "\'"
End If
End With
With e.Form.Controls("qs")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "订单日期 >= #" & .Value & "#"
End If
End With
With e.Form.Controls("jz")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "订单日期 <= #" & .Value & "#"
End If
End With
If Filter > "" Then
Tables("待采购_table1").Filter = Filter
End If
-- 发布时间：2012/8/31 12:38:00
--
With e.Form.Controls("checkbox")
If .checked Then
else
end if
End With
-- 发布时间：2012/8/31 12:49:00
--
感谢你的帮助.
但不知道具体怎么使用.能否详细些呢?
-- 发布时间：2012/8/31 13:00:00
--
Dim Filter As String
With e.Form.Controls("ddbh")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "订单编号 = \'" & .Value & "\'"
End If
End With
With e.Form.Controls("qs")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "订单日期 >= #" & .Value & "#"
End If
End With
With e.Form.Controls("jz")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "订单日期 <= #" & .Value & "#"
End If
End With
If Filter > "" Then
Filter = Filter & "某某列 = \'" & e.Form.Controls("复选框名称").Checked
Tables("待采购_table1").Filter = Filter
End If
-- 发布时间：2012/8/31 13:32:00
--
狐爸,谢谢你的帮助/
但是出现这个错误:
此主题相关图片如下：qq截图20120831133137.jpg
请帮忙修改一下
-- 发布时间：2012/8/31 14:44:00
--
Filter = Filter & "某某列 = " & e.Form.Controls("复选框名称").Checked