参考:
http://www.foxtable.com/webhelp/scr/2890.htm
类似
dim r as row = tables("客户资料").current
if r isnot nothing then
Dim tm As String = ProjectPath & "Attachments\" & r("出货单别") & ".doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\" & r("出货单别") & ".doc" '指定目标文件
Dim wrt As New WordReport(Tables("出库"),tm,fl) '定义一个WordReport
wrt.Build() '逐行生成报表
wrt.Show() '显示报表
end if