excel选定多行 结果只生成了第一行的数据？麻烦老师帮忙看看
Dim rs As List(of Row) = Tables("党史教育学习台账").GetCheckedRows
Dim Book As New XLS.Book(ProjectPath & "Attachments\台账.xls")
Dim fl As String = ProjectPath & "Reports\台账.xls"
If rs.Count > 0 Then '如果存在符合条件的行
For Each r As Row In rs '逐行生成报表
Book.Build()
Next
Book.Save(fl)
End If
Dim Proc As New Process
Proc.File = fl
Proc.Start()
word选定多行 结果只生成了第一行的数据？
Dim rs As List(of Row) = Tables("党史教育学习台账").GetCheckedRows
Dim tm As String = ProjectPath & "Attachments\议程.doc"
Dim fl As String = ProjectPath & "Reports\议程.doc"
If rs.Count > 0 Then '如果存在符合条件的行
Dim wrt As New WordReport(Tables("党史教育学习台账"),tm,fl) '注意这里无需指定表名
For Each r As Row In rs '逐行生成报表
wrt.BuildOne(r)
Next
wrt.Show() '显示报表
End If
Dim Proc As New Process
Proc.File = fl
Proc.Start()
[此贴子已经被作者于2021/6/23 22:01:29编辑过]
加好友 
发短信
Post By：2021/6/23 21:58:00 [只看该作者]
