Dim tm As String = ProjectPath&"Attachments\出库单.doc"'指定模板文件 Dim fl As String = ProjectPath&"Reports\" & Tables("出库").current("列1") & Tables("出库").current("列2") & ".doc"'指定目标文件
Dim wrt As NewWordReport(Tables("出库"),tm,fl) '定义一个WordReport wrt.Build() '逐行生成报表 wrt.Show() '显示报表