怎样根据已勾选的行生成Word报表每一个都单独存放在指定的文件夹里?比如勾选10行,就生成10个Word存放在指定的文件夹里。
使用代码处理: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