以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  生成word报表后发送邮件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=91074)

--  作者:有点蓝
--  发布时间:2016/9/28 18:05:00
--  
Dim tm As String  = ProjectPath & "Attachments\\JH_Booking.docx" 
Dim fl As String = ProjectPath & "Reports\\JH_Booking.docx" \'指定目标文件
Dim wrt As New WordReport(Tables("BookingMail"),tm,fl) \'定义一个WordReport
wrt.Build() \'逐行生成报表
wrt.quit

重要提示:

用WordReport生成报表之后,必须执行Quit方法退出,或者执行Show方法显示报表,否则内存将常驻一个Word进程, 影响后续报表的生成和设计,直到你中断这个进程,切记切记。