Dim tm As String = ProjectPath&"Attachments\出库单.doc"'指定模板文件 比如说\" & Tables("出库").current("单号类型"),比如这个单号的类型=1050,或者1060等等 Dim fl As String = ProjectPath&"Reports\出库单.doc"'指定目标文件 Dim wrt As NewWordReport(Tables("出库").current,tm,fl) '定义一个WordReport wrt.Buildone() '生成这一行的报表 wrt.Show()
'显示报表