Foxtable(狐表)用户栏目专家坐堂 → 批量打印定位问题


  共有3087人关注过本帖树形打印复制链接

主题:批量打印定位问题

帅哥哟,离线,有人找我吗?
benwong2015
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:112 积分:1444 威望:0 精华:0 注册:2018/7/4 8:21:00
批量打印定位问题  发帖心情 Post By: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

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105492 积分:536451 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/11/29 9:43:00 [只看该作者]

一行生成一个报表,还是所有勾选的行在一个报表?

 回到顶部
帅哥哟,离线,有人找我吗?
benwong2015
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:112 积分:1444 威望:0 精华:0 注册:2018/7/4 8:21:00
  发帖心情 Post By:2022/11/29 9:44:00 [只看该作者]

 一行生成一个报表

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105492 积分:536451 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/11/29 9:47:00 [只看该作者]

是根据"0202排单管理_Table1"生成报表,还是根据HJ_PDList表的数据生成报表?

 回到顶部
帅哥哟,离线,有人找我吗?
benwong2015
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:112 积分:1444 威望:0 精华:0 注册:2018/7/4 8:21:00
  发帖心情 Post By:2022/11/29 9:48:00 [只看该作者]

是根据"0202排单管理_Table1"生成报表

 回到顶部
帅哥哟,离线,有人找我吗?
benwong2015
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:112 积分:1444 威望:0 精华:0 注册:2018/7/4 8:21:00
  发帖心情 Post By:2022/11/29 9:49:00 [只看该作者]

搞定了,定位问题

 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105492 积分:536451 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/11/29 9:49:00 [只看该作者]

For Each r As Row In Tables("0202排单管理_Table1").GetCheckedRows
        Tables("0202排单管理_Table1").Position = r.index


 回到顶部