Dim tm As String = ProjectPath&"Attachments\订单.doc"'指定模板文件 Dim fl As String = ProjectPath&"Reports\订单.doc"'指定目标文件 Dim wrt As NewWordReport(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() '显示报表