Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]请教一下导出EXCEL问题


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

主题：[求助]请教一下导出EXCEL问题
帅哥哟，离线，有人找我吗？
szoriental
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：154 积分：1252 威望：0 精华：0 注册：2012/8/26 17:30:00 		[求助]请教一下导出EXCEL问题  发帖心情 Post By：2015/10/10 8:47:00 [只看该作者]

有两个关联表，父表是出库单表；子表是出库单明细表；在窗口中有BUTTON按钮（名称：导出对帐单）；

设想是在父表中增加一个逻辑列，当逻辑列被勾选时，点“导出对帐单”按钮，则导出所有被勾选的出库单及出库单明细内容；请教老师具体要怎么弄？

按钮代码是这样的：
Dim Book As New XLS.Book(ProjectPath & "Attachments\销售单.xls")
Dim fl As String = ProjectPath & "Reports\销售单.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()
使用如上代码只能导出一个当前出库单及出库单明细内容，但想导出多个出库单及出库单明细内容，请教老师具体要怎么弄？
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2015/10/10 9:03:00 [只看该作者]

首先在模板出库单表表名那行设置“<ALL>”标记。然后根据勾选列做个筛选，再执行上面的代码即可
 回到顶部
帅哥哟，离线，有人找我吗？
szoriental
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：154 积分：1252 威望：0 精华：0 注册：2012/8/26 17:30:00 		  发帖心情 Post By：2015/10/10 9:45:00 [只看该作者]

能不能详细说一下是怎么筛选的？

 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2015/10/10 10:01:00 [只看该作者]

Tables("出库单").Filter="逻辑列=1"

 回到顶部
帅哥哟，离线，有人找我吗？
szoriental
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：154 积分：1252 威望：0 精华：0 注册：2012/8/26 17:30:00 		  发帖心情 Post By：2015/10/10 10:54:00 [只看该作者]

老师，关于首先在模板出库单表表名那行设置“<ALL>”标记，这个是在哪一行？

我的模板见附件图片；
[此贴子已经被作者于2015/10/10 10:55:13编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
szoriental
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：154 积分：1252 威望：0 精华：0 注册：2012/8/26 17:30:00 		  发帖心情 Post By：2015/10/10 10:56:00 [只看该作者]

怎么上不了图片？

图片点击可在新窗口打开查看此主题相关图片如下：001.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2015/10/10 11:12:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20151010110946.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
szoriental
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：154 积分：1252 威望：0 精华：0 注册：2012/8/26 17:30:00 		  发帖心情 Post By：2015/10/10 11:25:00 [只看该作者]

成了，谢谢老师

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询