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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]筛选代码不能正常工作

共有3945人关注过本帖树形打印复制链接主题：[求助]筛选代码不能正常工作

lijin951

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：87 积分：701 威望：0 精华：0 注册：2014/8/4 11:54:00

[求助]筛选代码不能正常工作 发帖心情

Post By：2014/9/2 14:22:00 [只看该作者]

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

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

我的代码如下：

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编辑过]

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178530 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/9/2 14:39:00 [只看该作者]

请上例子.

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/9/2 14:40:00 [只看该作者]

这个代码，不可能无效

If filter >"" Then

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

End If

要实现什么，自己上传例子吧。

lijin951

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：87 积分：701 威望：0 精华：0 注册：2014/8/4 11:54:00

Post By：2014/9/2 15:04:00 [只看该作者]

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

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

最后一个筛选条件不管是

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

还是

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

副本表都没反应

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

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

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/9/2 15:27:00 [只看该作者]

Dim sx As String = "1=1"
Dim sjsx As String = "1=1"
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

With e.Form.Controls("3dt1") ''开始时间
    If .Value IsNot Nothing Then
        sjsx &= " and 购进日期 >= #" & .Value & "#"
    End If
End With

With e.Form.Controls("3dt2") ''结束时间
    If .Value IsNot Nothing Then
        sjsx &= " and 购进日期 <= #" & .Value & "#"
    End If
End With

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

lijin951

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：87 积分：701 威望：0 精华：0 注册：2014/8/4 11:54:00

Post By：2014/9/2 15:45:00 [只看该作者]

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 & "')"

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

有点甜

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/9/2 15:47:00 [只看该作者]

1=1没有意义，只是为了连接后面 and

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

这两句代码，是为了筛选子表数据