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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 多条件筛选

共有2742人关注过本帖树形打印复制链接主题：多条件筛选

kaituozhe

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

加好友

发短信

等级：九尾狐帖子：2234 积分：15278 威望：0 精华：0 注册：2015/7/18 10:10:00

Post By：2016/2/16 10:41:00 [只看该作者]

查的结果是空表，不知道是什么原因

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/2/16 10:46:00 [只看该作者]

上传实例测试

kaituozhe

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

加好友

发短信

等级：九尾狐帖子：2234 积分：15278 威望：0 精华：0 注册：2015/7/18 10:10:00

Post By：2016/2/16 10:53:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目9.foxdb

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/2/16 11:09:00 [只看该作者]

1、中文逗号的问题

Dim str1 As String
Dim str2 As String
If Tables("银行现金汇总").current.IsNull("交易户名") = False AndAlso Tables("银行现金汇总").current.IsNull("涉及人员") = False Then '如果工号列不为空
    str1 = Tables("银行现金汇总").current("交易户名").replace(chr(-23636), ",").Replace(",", "','")
    str2 = Tables("银行现金汇总").current("涉及人员").replace(chr(-23636), ",").Replace(",", "','")
    Tables("交易明细_table1").filter = "[交易户名] In ('" & str1 & "') And [对方户名] In ('" & str2 & "')"
End If

2、你的逻辑是什么啊，根据条件，就是显示张三一个人的数据而已啊。

kaituozhe

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

加好友

发短信

等级：九尾狐帖子：2234 积分：15278 威望：0 精华：0 注册：2015/7/18 10:10:00

Post By：2016/2/16 19:26:00 [只看该作者]

张三、李四与直六的交易

kaituozhe

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

加好友

发短信

等级：九尾狐帖子：2234 积分：15278 威望：0 精华：0 注册：2015/7/18 10:10:00

Post By：2016/2/16 19:40:00 [只看该作者]

如果数据全部加载14楼的代码没有问题了，但是没有全部加载的情况下，我把代码改成如下代码，为什么还是只显示10行数据呀，怎么能把不加载的所有符合条件的数据都查出来

Dim str1 As String
Dim str2 As String
If Tables("银行现金汇总").current.IsNull("交易户名") = False AndAlso Tables("银行现金汇总").current.IsNull("涉及人员") = False Then '如果工号列不为空
    str1 = Tables("银行现金汇总").current("交易户名").replace(chr(-23636), ",").Replace(",", "','")
    str2 = Tables("银行现金汇总").current("涉及人员").replace(chr(-23636), ",").Replace(",", "','")
    Tables("交易明细_table1").DataTable.loadfilter = "[交易户名] In ('" & str1 & "') And [对方户名] In ('" & str2 & "')"
    Tables("交易明细_table1").DataTable.load
End If

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/2/16 20:14:00 [只看该作者]

    Tables("交易明细_table1").DataTable.LoadTop = "100 percent"
    Tables("交易明细_table1").DataTable.loadfilter = "[交易户名] In ('" & str1 & "') And [对方户名] In ('" & str2 & "')"
    Tables("交易明细_table1").DataTable.load
End If

下一主题 >> << 上一主题

总数 17 上一页 1 2

主题：多条件筛选