使用代码处理：http://www.foxtable.com/webhelp/topics/2890.htm
Dim rs As List(Of Row) = Tables("出库").GetCheckedRows
If rs.Count > 0 Then '如果存在符合条件的行
Dim tm As String = ProjectPath & "Attachments\出库单.doc" '指定模板文件
For Each r As Row In rs '逐行生成报表
Dim fl As String = ProjectPath & "Reports\出库单" & r("编号") & ".doc" '指定目标文件
Dim wrt As New WordReport(Tables("出库"), tm, fl) '定义一个WordReport
wrt.BuildOne(r)
wrt.Quit
Next
End If
加好友 
发短信
Post By：2024/11/20 16:23:00 [显示全部帖子]
