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

现在我先对主表进行某个时间段的查询，并从他关联的明细表里面查询‘型号规格’，‘名称’等字段，但是需要只显示主表的列

达到的效果是，我查询某一时间段（来自主表‘时间’字段），的某一个型号规格（来自明细表‘型号规格’字段），然后结果是显示这个时间段内，含有明细表型号规格的主表信息.二者是通过单据号关联的

我的代码如下：

Dim filter As String

With e.Form.Controls("3dt1") ''开始时间

If .Value IsNot Nothing Then

filter = "购进日期 >= #" & .value & "#"

End If

End With

With e.Form.Controls("3dt2") ''结束时间

If .Value IsNot Nothing Then

If filter >"" Then

filter = filter & " and "

End If

filter = "购进日期 <= #" & .value & "#"

End If

End With

If filter >"" Then

Tables("入库主表").Filter = filter

End If

光这段时间筛选代码运行后，起不到筛选的作用，还没加其他字段的筛选，之前窗口中的表是副本表，最后一个IF判断代码是

If filter >"" Then

Tables("单据查询_3tb1").Filter = filter ''表名是3tb1

End If

我还以为是不能作用于副本表，但是不作为副本表运行也没反应呀

[此贴子已经被作者于2014-9-2 14:23:15编辑过]

我继续研究了一下发现还是不行，请各位大神看看

问题在单据查询（窗口）-入库单查询-查询按钮的click事件，其中有时间的筛选和型号规格名称的筛选，我目前测试时间的筛选已经失败

最后一个筛选条件不管是

Tables("单据查询_3tb1").Filter = "购进日期 = sjsx"

还是

Tables("单据查询_3tb1").Filter = sjsx

副本表都没反应

下载信息 [文件大小：下载次数： ]
点击浏览该文件:1005.rar

[此贴子已经被作者于2014-9-2 15:04:49编辑过]

Dim sx As String = "1=1"
Dim sjsx As String = "1=1"

Dim str As String = DataTables("入库明细表").GetComboListString("购进单据号", sjsx).Replace("|", "','")
Tables("单据查询_3tb2").Filter = sx & " and 购进单据号 in ('" & str & "')"

请问大神这两段代码改怎么理解

大神啊，经过尝试，会报错，时间筛选已经可以用了，但是加入的型号规格和名称的筛选没用

下载信息 [文件大小：下载次数： ]
点击浏览该文件:1005.rar

此主题相关图片如下：qq图片20140902161321.jpg

下载信息 [文件大小：下载次数： ]
点击浏览该文件:1005.rar

[此贴子已经被作者于2014-9-2 16:15:40编辑过]

是呀，我就是用的5楼的代码

我找到原因了，因为从表里面没有购进日期这个字段

大神请问，赋值的代码的

With e.Form.Controls("3ssk1")

If .Value IsNot Nothing Then

sx &= " and 物料名称 = '" & .Value & "'"

End If

End With

With e.Form.Controls("3ssk2")

If .Value IsNot Nothing Then

sx &= " and 型号规格 = '" & .Value & "'"

End If

End With

红色的地方是什么由来？

主题：[求助]筛选代码不能正常工作