专家坐堂-请问老师我的筛选代码哪里错了？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请问老师我的筛选代码哪里错了？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=48338)

--  作者：tesia255
--  发布时间：2014/3/27 11:23:00
--  请问老师我的筛选代码哪里错了？

我在窗口做了 1个公司名称选择框，在选择框中选择了公司A 即筛选出"月度结算"表中所有A公司的订单
但是总是筛选不出来请老师指点

Dim Filter As String
With e.Form.Controls("company")
If .Value IsNot Nothing Then
Filter = "公司名称= " & .Value & ""
End If
End With

If Filter > "" Then
Tables("月度结算").Filter = Filter
End If

--  作者：Bin
--  发布时间：2014/3/27 11:28:00
--
你写在什么事件中?

改为这样看看

Dim Filter As String
With e.Form.Controls("company")
If .Text I<> "" Then
Filter = "公司名称= " & .Text & ""
End If
End With

If Filter > "" Then
Tables("月度结算").Filter = Filter
End If

[此贴子已经被作者于2014-3-27 11:28:17编辑过]

--  作者：zyys2813
--  发布时间：2014/3/27 11:32:00
--
http://www.foxtable.com/help/topics/1058.htm

  Filter = "产品 = \'" & .Value & "\'"

--  作者：tesia255
--  发布时间：2014/3/27 11:33:00
--
我是写在窗口的一个筛选按钮的单击事件

--  作者：tesia255
--  发布时间：2014/3/27 11:36:00
--
好的谢谢！！！

--  作者：tesia255
--  发布时间：2014/3/27 11:47:00
--
您好，再请教您下，如果在上面的基础上，我还想筛选表中 B列不为空的值要怎么写代码？我直接在上面的代码后面写筛选代码，上面的筛选就筛选不出来了。谢谢

--  作者：Bin
--  发布时间：2014/3/27 11:52:00
--
Tables("月度结算").Filter = Filter & " AND B列 is not null"

--  作者：tesia255
--  发布时间：2014/3/27 11:56:00
--
谢谢老师~~