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

谢谢蓝版，是我想要的结果。真的感谢！！

老师，如果从表A跳转到表B中，用什么命令？

maintable = Tables("表B")

谢谢老师，已经成功了。最后一个问题，如何把筛选的结果复制到一个新表中。

例如：把表A中的符合条件的行，复制到表B中，这个公式用哪个。谢谢老师！！

以下是引用hbfnmxb在2018/7/10 13:15:00的发言：
谢谢老师，已经成功了。最后一个问题，如何把筛选的结果复制到一个新表中。

例如：把表A中的符合条件的行，复制到表B中，这个公式用哪个。谢谢老师！！

参考

http://www.foxtable.com/webhelp/scr/0680.htm

http://www.foxtable.com/webhelp/scr/1533.htm

我不会引用，只能复制了：

Dim Filter As String
With e.Form.Controls("ComboBox1")
    If .Value IsNot Nothing Then
        Filter = "录取批次 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("ComboBox2")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "文理分科 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("ComboBox3")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "录取年度 = '" & .Value & "'"
    End If
End With

If e.Form.Controls("GF").text > ""
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "平均分差值 <= " &   e.Form.Controls("GF").text
End If
If e.Form.Controls("DF").text > ""
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "平均分差值 >= " & e.Form.Controls("dF").text
End If
If Filter > "" Then
    Tables("年度院校提档线").Filter = Filter
End If

老师，上面这段代码中，如果加上一列逻辑标记，语句如何加。比如：在“年度院校提档线”表中有一列逻辑列，筛选得出结果后，在这个逻辑列中打上对勾。这个语句如何添加？谢谢老师！

[此贴子已经被作者于2018/7/11 7:38:24编辑过]

If Filter > "" Then
Tables("年度院校提档线").Filter = Filter

DataTables("年度院校提档线").ReplaceFor("逻辑列", False)

DataTables("年度院校提档线").ReplaceFor("逻辑列", True, Filter)
End If

谢谢老师，已基本完成。这个附件太大，如果上传上来。我想让老师看看。当然也可以单独传给老师

以下是引用hbfnmxb在2018/7/11 11:04:00的发言：
谢谢老师，已基本完成。这个附件太大，如果上传上来。我想让老师看看。当然也可以单独传给老师

要修改什么功能？你可以发到百度云，然后分享链接出来。

以下是引用有点甜在2018/7/11 11:05:00的发言：

要修改什么功能？你可以发到百度云，然后分享链接出来。

链接: https://pan.baidu.com/s/1JwM1PU55U_Oj2E4ewyXUMA 密码: hd4f

主题：[求助]求一个筛选按钮公式