异步生成报表错误 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 异步生成报表错误

共有2133人关注过本帖树形打印复制链接主题：异步生成报表错误

wohenguaia

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

加好友

发短信

等级：小狐帖子：381 积分：3456 威望：0 精华：0 注册：2011/5/9 12:45:00

异步生成报表错误 发帖心情

Post By：2018/11/8 9:58:00 [只看该作者]

不知为何我的电脑无法发送附件，点击“添加附件”没反映，

百度网盘下载

1、为什么异步生成报表后只打开一个文件，而且另外一个文件没有替换相应的列
2、第二个文件并且常驻内存

另外，客服老师说不能异步生成报表，那么如何解决，将表中的多行插入到模板文件中并且生成报表？如果在一个线程中采用

dim wrt as new wordreport(tb,a,b)

for each r as row in t.rows

wrt.buildone(r)

wrt.quit()

这种办法如果插入行数略多，比如5行，要等很长时间，让人很难接受。

所以，请问各大神有没有其他解决办法？

[此贴子已经被作者于2018/11/8 9:59:13编辑过]

有点甜

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

加好友

发短信

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

Post By：2018/11/8 10:32:00 [只看该作者]

不能这样写代码。你异步调用的时候，只能调用一次函数，在函数里面生成全部的报表。

调用代码，在内部函数那里，循环每一行，生成。

Dim yj As String = ProjectPath & "Attachments\委托代理合同.doc" '''合同原件路径
Dim sc As String = ProjectPath & "Reports\委托代理合同" '''生成报表路径
Dim nametb As String = "临时合同编号表"
Functions.AsyncExecute("异步生成报表",yj,sc,nametb)