在排单管理的窗口表打钩选中之后，点击批量打印，只能打印到最后一个选中行的数据，不会根据打钩对应数据生产，请问这个代码哪里出问题了？
For Each r As Row In Tables("0202排单管理_Table1").GetCheckedRows
Dim idx As Integer = Tables("HJ_PDList").FindRow("任务编号 = '" & r("任务编号") & "'")
If idx >= 0 Then
Tables("HJ_PDList").Position = idx
End If
MessageBox.Show(idx)
Dim Book As New XLS.Book(ProjectPath & "Attachments\排单表.xls") '打开模板
Dim fl As String = ProjectPath & "Reports\排单表" & r("任务编号") & ".xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Book.Build() '生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
Next
加好友 
发短信
Post By：2022/11/29 9:36:00 [显示全部帖子]
