双表条件筛选，感谢BIN老师甜老师指点，代码不报错了，但筛选不出来。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 双表条件筛选，感谢BIN老师甜老师指点，代码不报错了，但筛选不出来。

共有4274人关注过本帖树形打印复制链接主题：双表条件筛选，感谢BIN老师甜老师指点，代码不报错了，但筛选不出来。

nclo

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

加好友

发短信

等级：童狐帖子：223 积分：1562 威望：0 精华：0 注册：2014/9/17 19:08:00

双表条件筛选，感谢BIN老师甜老师指点，代码不报错了，但筛选不出来。 发帖心情

Post By：2014/11/29 11:49:00 [只看该作者]

Dim Filter As String

With e.Form.Controls("DateTimePicker1")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " And "

End If

Filter = Filter & "第六列 >= #" & .Value & "#"

End If

End With

With e.Form.Controls("DateTimePicker2")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " And "

End If

Filter = Filter & "第六列 <= #" & .Value & "#"

End If

End With

With e.Form.Controls("combobox1")

If .Value IsNot Nothing Then

Filter = "第1列 = '" & .Value & "'"

End If

End With

With e.Form.Controls("combobox2")

If .Value IsNot Nothing Then

If Filter > "" Then

Filter = Filter & " And "

End If

Filter = Filter & "第2列 = '" & .Value & "'"

End If

End With

If Filter <> "" Then

DataTables("表A").LoadFilter = "第4列 not in (select 第七列 from {表B} where " & filter & ")"

End If

DataTables("表A").Load

例如万福蛋鸡专合社，筛选之后仍然在表A里存在啊。。。跪求大神指点。

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

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

nclo

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

加好友

发短信

等级：童狐帖子：223 积分：1562 威望：0 精华：0 注册：2014/9/17 19:08:00

Post By：2014/11/29 11:54:00 [只看该作者]

代码中的第六列是表B（支持农业经营主体明细）中的时间，第1列是表A中的县市区，第2列是表A中的专合社类别。

Bin

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

加好友

发短信

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

Post By：2014/11/29 12:05:00 [只看该作者]

把你LoadFIlter 弹出来自己看一下就知道了

实在搞不定就上例子吧

nclo

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

加好友

发短信

等级：童狐帖子：223 积分：1562 威望：0 精华：0 注册：2014/9/17 19:08:00

Post By：2014/11/29 12:13:00 [只看该作者]

弹出来了

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

nclo

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

加好友

发短信

等级：童狐帖子：223 积分：1562 威望：0 精华：0 注册：2014/9/17 19:08:00

Post By：2014/11/29 12:21:00 [只看该作者]

这个是什么意思，BIN老师，我确实看不懂啊。。我上项目您帮我看看吧。筛选窗口设计了的。就是财政未支持专合社筛选。密码888

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

Bin

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

加好友

发短信

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

Post By：2014/11/29 17:08:00 [只看该作者]

SQL数据源打不开,说明你根本没有符合条件的行.

Bin

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

加好友

发短信

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

Post By：2014/11/29 17:14:00 [只看该作者]

你可以把拼接出来的后面括号的条件

也就是 select 第七列 from from {表B} where 第2列 = '全部类别 .........

把这SQL语句复制到SQL命令窗口查询一下.看看得到的结果是什么. 再看一下.你表A是否有符合的数据

nclo

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

加好友

发短信

等级：童狐帖子：223 积分：1562 威望：0 精华：0 注册：2014/9/17 19:08:00

Post By：2014/11/29 21:49:00 [只看该作者]

BIN老师，是这个结果，我不知道该怎么办了。我是按照帮助来写的语句呀，只是这里有点特殊，timepicker1和timepicker2都是要筛选表B的数据。是不是这里出了问题，如图所见，想实现的功能为，筛选出2013年-2014年支持过的专合社（表B），然后表A加载除了这些专合社以外的专合社。
图片点击可在新窗口打开查看

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