Replace对模板的修改是全局的。
我们也可以用ReplaceOne修改模板，和Repalce不同，RepalceOne仅对下一条记录生效，需要和BuildOne配合使用，例如：
Dim tm As String = ProjectPath
&
"Attachments\订单.doc"
'指定模板文件
Dim fl As String = ProjectPath
&
"Reports\订单.doc"
'指定目标文件
Dim wrt As New
WordReport(Tables("订单"),tm,fl) '定义一个WordReport
Dim sum As Integer
For Each r As Row In Tables("订单").rows
'逐行生成报表
sum = sum + r("数量") '逐行累计
wrt.ReplaceOne("[合计]",sum)
wrt.BuildOne(r)
Next
wrt.Show() '显示报表
这是我找到的解决办法，用帮助中的例子，wrt.ReplaceOne("[合计]",sum)使用这种办法就可以解决了， wrt.ReplaceOne("0.00","")唯一的 缺点就是又要用到代码了
[此贴子已经被作者于2014-9-24 8:31:43编辑过]
加好友 
发短信
Post By：2014/9/20 21:05:00 [显示全部帖子]
