Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共3 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:筛选

1楼
fxdf 发表于:2008/10/13 20:48:00
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目4.table


子窗口中有“拼音”姓名,电话三个选项,在其中任一个或多个中输入内容后,按钮进行筛选,并切下次筛选时不需要按显示所有行就可以从所有数据中筛选
请指教代码应如何写

另筛选后如何显示有多少条符合条件的记录
[此贴子已经被作者于2008-10-13 20:54:51编辑过]
2楼
czy 发表于:2008/10/13 21:46:00

 

Tables("A").ApplyFilter = False

Dim Filter As String

With e.Form.Controls("TextBox1")

    If .Value IsNot Nothing Then

        Filter = "b = '" & .Value & "'"

    End If

End With

With e.Form.Controls("TextBox2")

    If .Value IsNot Nothing Then

        If Filter > "" Then

            Filter = Filter & " And "

        End If

        Filter = Filter & "c = '" & .Value & "'"

    End If

End With

With e.Form.Controls("TextBox3")

    If .Value IsNot Nothing Then

        If Filter >"" Then

            Filter = Filter & " And "

        End If

        Filter = Filter & "d = '" & .Value & "'"

    End If

End With

 

If Filter > "" Then

    Tables("表A").Filter = Filter

End If

[此贴子已经被作者于2008-10-13 23:03:50编辑过]
3楼
fxdf 发表于:2008/10/13 22:08:00
谢谢您的热心帮助,再麻烦一下,如果“电话”想用“包含”不用“等于”应如何?
另筛选后如何显示有多少条符合条件的记录
共3 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03125 s, 3 queries.