[求助]怎么按主表的关联列比如卡号，将主表所有卡号列对应的关联表都一键导出到文件夹里？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]怎么按主表的关联列比如卡号，将主表所有卡号列对应的关联表都一键导出到文件夹里？

共有2781人关注过本帖树形打印复制链接主题：[求助]怎么按主表的关联列比如卡号，将主表所有卡号列对应的关联表都一键导出到文件夹里？

yjm789000

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

加好友

发短信

等级：幼狐帖子：136 积分：1723 威望：0 精华：0 注册：2016/7/18 20:17:00

[求助]怎么按主表的关联列比如卡号，将主表所有卡号列对应的关联表都一键导出到文件夹里？ 发帖心情

Post By：2019/5/24 14:55:00 [只看该作者]

[求助]怎么按主表的关联列比如卡号，将主表所有卡号列对应的关联表都一键导出到文件夹里？

有两个表，主表和明细表，主表和明细表通过卡号建立起了关联。

每个主表的卡号对应的关联表都可以导出为一个EXCEL文件，以当前卡号为文件名。同时可以按筛选条件（比如：就某个时间段里的数据）来导出的关联表对应的数据数据出来。

帮助文件里只有通过窗口选择当前主表某行后，就能导出了对应的关联表。不可以一键导出所有关联表，同时，可以带筛选条件的。

有点甜

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

加好友

发短信

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

Post By：2019/5/24 15:02:00 [只看该作者]

导出表，参考

http://www.foxtable.com/webhelp/scr/0559.htm

yjm789000

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

加好友

发短信

等级：幼狐帖子：136 积分：1723 威望：0 精华：0 注册：2016/7/18 20:17:00

回复：（有点甜）导出表，参考 http://www.f... 发帖心情

Post By：2019/5/24 15:42:00 [只看该作者]

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

是按图上的这种条件导出来。并且每个主卡对应的下面的关联表，是可以设置筛选条件导出，不是把所有的主卡当前卡号对应的所有关联表数据都导出来。

有点甜

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

加好友

发短信

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

Post By：2019/5/24 15:44:00 [只看该作者]

你需要这个？

http://www.foxtable.com/webhelp/scr/0204.htm

yjm789000

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

加好友

发短信

等级：幼狐帖子：136 积分：1723 威望：0 精华：0 注册：2016/7/18 20:17:00

回复：（有点甜）你需要这个？ http://www.f... 发帖心情

Post By：2019/5/24 16:02:00 [只看该作者]

甜老师，意思和这个差不多，但是这个是只能人工一个一个的在主表选择一行，然后才能导出对应的关联表。我想的一个按钮，把主表每行对应的关联表都导出来。而且关联表里的内容，我又不是需要所有。需要按每月的数据导出来，所以就要增加筛选条件。但是我不知道怎么操作

有点甜

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

加好友

发短信

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

Post By：2019/5/24 16:15:00 [只看该作者]

Dim d As Date = new Date(Date.Today.Year, Date.Today.Month, 1)
For Each bh As String In DataTables("表A").GetValues("第一列")
    Dim t As Table = Tables("表B")
    t.filter = "第一列 = '" & bh & "' and 日期 >= #" & d & "# and 日期 < #" & d.AddMonths(1) & "#"
    t.SaveExcel("d:\" & bh & ".xls", t.name)
Next