还是不行,都是只打印最后一个选择的行,其它的行都没有Dim lst As new List(of String)
For Each r As Row In Tables("资产管理_Table1").GetCheckedRows
lst.Add(r("_Identify"))
Next
Dim filter = Tables("资产管理_Table1").Filter
Tables("资产管理_Table1").Filter = "[_Identify] in (" & String.Join(",",lst.ToArray) & ")"
Dim Book As New XLS.Book(ProjectPath & "Attachments\Laberzc.xls")
Dim fl As String = ProjectPath & "Reports\laberzc.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(1,0).Value = "<资产管理_Table1, 10>" '细节区定义一
Sheet(6,0).Value = "<资产管理_Table1>" '细节区定义二
Book.Build() '生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
Tables("资产管理_Table1").Filter = filter