建一个窗口,加一个按钮,在按钮输入
Dim rs As List(of
Row) = Tables("表A").GetCheckedRowsIf rs.Count > 0 Then '如果存在符合条件的行
Dim tm As String = ProjectPath
&
"Attachments\出库.doc"
'指定模板文件
Dim fl As String = ProjectPath
&
"Reports\出库.doc"
'指定目标文件
Dim wrt As New
WordReport(Tables("出库"),tm,fl) '定义一个WordReport
For Each
r As Row In rs
'逐行生成报表
wrt.BuildOne(r)
Next
wrt.Show() '显示报表
End If
此主题相关图片如下:1.png
没有报表生成,不知这个要放哪里?
[此贴子已经被作者于2023/2/3 17:40:38编辑过]