Foxtable(狐表) → 用户栏目 → 专家坐堂 → 专业报表共用部分


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

主题：专业报表共用部分
帅哥哟，离线，有人找我吗？
pyh6918
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1128 积分：11029 威望：0 精华：2 注册：2008/9/1 10:45:00 		专业报表共用部分  发帖心情 Post By：2017/10/5 8:51:00 [只看该作者]

设计了好多个专业报表，其中前两页为每个报表的共用部分，有时会经常优化修改。用什么办法将这部分代码单独做到一个按钮里，然后由每个报表引用？

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


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/10/5 9:21:00 [只看该作者]

重复使用的代码可以提取到函数中：http://www.foxtable.com/webhelp/scr/1486.htm
[此贴子已经被作者于2017/10/5 9:21:34编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
pyh6918
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1128 积分：11029 威望：0 精华：2 注册：2008/9/1 10:45:00 		  发帖心情 Post By：2017/10/5 10:41:00 [只看该作者]

没成功！

 

函数中要定义一个报表Dim doc As New PrintDoc

 

引用函数的按钮中还要Dim doc As New PrintDoc

 

这两个DOC怎么能合成一个报表那？谢谢
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/10/5 10:55:00 [只看该作者]

作为参数传入
Dim doc As New PrintDoc = Ars(0)
'函数其它代码

函数调用
Dim doc As New PrintDoc
Functions.Execute("xxx名称", doc)
 回到顶部
帅哥哟，离线，有人找我吗？
pyh6918
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1128 积分：11029 威望：0 精华：2 注册：2008/9/1 10:45:00 		  发帖心情 Post By：2017/10/5 11:10:00 [只看该作者]

谢谢，琢磨一下。

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