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


  共有2787人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/5/24 15:02:00 [显示全部帖子]


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/5/24 15:44:00 [显示全部帖子]


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/5/24 18:28:00 [显示全部帖子]

 

上传你对应的项目以及你设置的模板文件。

 

 


 回到顶部