以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  批量打印定位问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=184228)
--  作者：benwong2015
--  发布时间：2022/11/29 9:36:00
--  批量打印定位问题
在排单管理的窗口表打钩选中之后，点击批量打印，只能打印到最后一个选中行的数据，不会根据打钩对应数据生产，请问这个代码哪里出问题了？   

 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
--  作者：有点蓝
--  发布时间：2022/11/29 9:43:00
--  
一行生成一个报表，还是所有勾选的行在一个报表？
--  作者：benwong2015
--  发布时间：2022/11/29 9:44:00
--  
 一行生成一个报表
--  作者：有点蓝
--  发布时间：2022/11/29 9:47:00
--  
是根据"0202排单管理_Table1"生成报表，还是根据HJ_PDList表的数据生成报表？
--  作者：benwong2015
--  发布时间：2022/11/29 9:48:00
--  
是根据"0202排单管理_Table1"生成报表
--  作者：benwong2015
--  发布时间：2022/11/29 9:49:00
--  
搞定了，定位问题
--  作者：有点蓝
--  发布时间：2022/11/29 9:49:00
--  
For Each r As Row In Tables("0202排单管理_Table1").GetCheckedRows
        Tables("0202排单管理_Table1").Position = r.index