Foxtable(狐表)用户栏目专家坐堂 → 报表


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

主题:报表

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


加好友 发短信
等级:幼狐 帖子:141 积分:1096 威望:0 精华:0 注册:2017/5/11 21:38:00
报表  发帖心情 Post By:2017/12/28 10:59:00 [只看该作者]

需要一次生成两个不同的Word报表应该怎么做?
现在的现象是,生成第二个的时候第一个就会关闭。

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/28 11:52:00 [只看该作者]

你怎么写代码生成的?贴出你写的代码

 

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

 


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


加好友 发短信
等级:幼狐 帖子:141 积分:1096 威望:0 精华:0 注册:2017/5/11 21:38:00
  发帖心情 Post By:2017/12/28 15:17:00 [只看该作者]

Dim tm As String  = ProjectPath & "Attachments\新装终端标准工事piao.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\新增终端\" & Tables("终端台账").Rows(Tables("终端台账").Position)("站名") & "新装终端标准工事piao" & ".doc" '指定目标文件
Dim wrt As New WordReport(Tables("终端台账"),tm,fl) '定义一个WordReport
wrt.Build() '逐行生成报表
wrt.Show() '显示报表


Dim tm1 As String  = ProjectPath & "Attachments\新装电能表工事piao模板1.doc" '指定模板文件
Dim fl1 As String = ProjectPath & "Reports\新增终端\" & Tables("电流互感器台账").Rows(Tables("电流互感器台账").Position)("主键") & "新装电能表标准工事piao" & ".doc" '指定目标文件
Dim wrt1 As New WordReport(Tables("电流互感器台账"),tm1,fl1) '定义一个WordReport
wrt1.Build() '逐行生成报表
wrt1.Show() '显示报表


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/28 15:22:00 [只看该作者]

Dim tm As String  = ProjectPath & "Attachments\新装终端标准工事piao.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\新增终端\" & Tables("终端台账").Rows(Tables("终端台账").Position)("站名") & "新装终端标准工事piao" & ".doc" '指定目标文件
Dim wrt As New WordReport(Tables("终端台账"),tm,fl) '定义一个WordReport
wrt.Build() '逐行生成报表
wrt.quit

Dim tm1 As String  = ProjectPath & "Attachments\新装电能表工事piao模板1.doc" '指定模板文件
Dim fl1 As String = ProjectPath & "Reports\新增终端\" & Tables("电流互感器台账").Rows(Tables("电流互感器台账").Position)("主键") & "新装电能表标准工事piao" & ".doc" '指定目标文件
Dim wrt1 As New WordReport(Tables("电流互感器台账"),tm1,fl1) '定义一个WordReport
wrt1.Build() '逐行生成报表
wrt1.quit

Dim proc As new Process
proc.File = fl
proc.Start
Dim proc1 As new Process
proc1.File = fl1
proc1.Start

[此贴子已经被作者于2017/12/28 15:34:02编辑过]

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


加好友 发短信
等级:幼狐 帖子:141 积分:1096 威望:0 精华:0 注册:2017/5/11 21:38:00
  发帖心情 Post By:2017/12/28 15:29:00 [只看该作者]

好的谢谢
wrt1.Build() '逐行生成报表
wrt.quit   ' 少写一个1

 回到顶部