使用占位符，用Replace替换报表内容：http://www.foxtable.com/webhelp/scr/2890.htm
1-10月分析
2017年1至10月份，全区消防部队共接警出动【出动】起。其中火灾【火灾】起，抢险救援【救援】起，社会救助604起，公务执勤51起，其他出动107起。火灾188起，同比上升1.6%，死亡1人。
Dim tm As String = ProjectPath & "Attachments\订单.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\订单.doc" '指定目标文件
Dim wrt As New WordReport(Tables("订单"),tm,fl) '定义一个WordReport
wrt.Replace("【出动】",1929) '这里的1929可以从数据库中查询得来，下同
wrt.Replace("【火灾】",188) '这里的1929可以从数据库中查询得来，下同
wrt.Replace("【救援】",979) '这里的1929可以从数据库中查询得来，下同wrt.Build() '生成报表
wrt.Show() '显示报表
[此贴子已经被作者于2017/12/2 10:42:00编辑过]
加好友 
发短信
Post By：2017/12/2 8:44:00 [显示全部帖子]
