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

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

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

大红袍

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

加好友

发短信

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

Post By：2016/2/16 9:55:00 [显示全部帖子]

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

大红袍

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

加好友

发短信

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

Post By：2016/2/16 10:09:00 [显示全部帖子]

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

大红袍

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

加好友

发短信

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

Post By：2016/2/16 10:19:00 [显示全部帖子]

不可能，请弹出msgbox(str1)、msgbox(str2)

大红袍

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

加好友

发短信

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

Post By：2016/2/16 10:35:00 [显示全部帖子]

这个是筛选啊，跟加载一点关系都没有。

如果报错，肯定是其它代码影响的。做例子上来测试。

大红袍

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

加好友

发短信

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

Post By：2016/2/16 10:46:00 [显示全部帖子]

上传实例测试

大红袍

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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、你的逻辑是什么啊，根据条件，就是显示张三一个人的数据而已啊。

大红袍

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

加好友

发短信

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

Post By：2016/2/16 20:14:00 [显示全部帖子]

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.LoadTop = "100 percent"
    Tables("交易明细_table1").DataTable.loadfilter = "[交易户名] In ('" & str1 & "') And [对方户名] In ('" & str2 & "')"
    Tables("交易明细_table1").DataTable.load
End If

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

主题：多条件筛选