参考一：http://www.foxtable.com/help/topics/1597.htm
参考二：
http://www.foxtable.com/help/topics/2890.htm
组合起来：
Dim tm As String = ProjectPath & "Attachments\出库单.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\出库单.doc" '指定目标文件
Dim wrt As New WordReport(Tables("出库"),tm,fl) '定义一个WordReport
With Tables("订单")
For i as Integer = .TopPosition To .BottomPosition
wrt.BuildOne(.rows(i))
Next
End With
wrt.Show() '显示报表
加好友 
发短信
Post By：2015/7/4 9:03:00 [显示全部帖子]
