以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何实现在筛选后的结果中再次筛选  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=90138)
--  作者：2900819580
--  发布时间：2016/9/6 11:32:00
--  [求助]如何实现在筛选后的结果中再次筛选
副本表中的数据，如何做到对已筛选的数据再次筛选。。。。在原来基础上筛选
--  作者：y2287958
--  发布时间：2016/9/6 11:34:00
--  
条件再加上“tables("表名").filter”
--  作者：2900819580
--  发布时间：2016/9/6 13:40:00
--  
不行，我有两个控件，如何实现点击控件一进行筛选后，如果再点击控件二，控件二的筛选是在控件一的基础上进行的。
控件一、
Dim fi As String = Nothing

For Each f As WinForm.Control In e.Form.Controls("GroupBox2").Children
    
    If Typeof f Is WinForm.CheckBox Then
        Dim chk As WinForm.CheckBox = f
        If chk.Checked = True Then
            If fi > "" Then fi = fi & " and "
            fi = fi & chk.Text & " = " & chk.Checked
        End If
    End If
Next
MessageBox.Show(fi)
Tables("排产汇总_Tab排产汇总").filter = fi

控件二。
Dim all As WinForm.RadioButton = e.Form.Controls("RadhAll")
Dim dip As WinForm.RadioButton = e.Form.Controls("RadhDip")
Dim smt As WinForm.RadioButton = e.Form.Controls("RadhSmt")
\'Dim dr As Row = Tables("排产汇总_Tab订单明细").Current
Dim fi As String \' = "产品代码 = \'" & dr("产品代码") &  "\'"  
Dim tb As Table = Tables("排产汇总_Tab排产汇总")
If all.Checked = True Then fi = "工序 = \'dip\' or 工序 = \'smt\'"
If dip.Checked = True Then fi = "工序 = \'dip\'"
If smt.Checked = True Then fi = "工序 = \'smt\'"
tb.Filter = fi
--  作者：有点蓝
--  发布时间：2016/9/6 14:28:00
--  
tb.Filter = tb.Filter & " and " & fi