Foxtable(狐表)用户栏目专家坐堂 → 报表事件 Afterbuild 的应用


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

主题:报表事件 Afterbuild 的应用

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107847 积分:548592 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/15 8:52:00 [显示全部帖子]


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


加好友 发短信
等级:超级版主 帖子:107847 积分:548592 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/15 14:08:00 [显示全部帖子]

改为自己的模板名称啊

If e.Book.TempLate = "开料单"
    Dim Book As New XLS.Book(ProjectPath & "Attachments\二维码.xls")
    Dim fl As String = ProjectPath & "Reports\出库单.xls"
    Book.Build() '生成细节区
    Book.Sheets(0).Rows.RemoveAt(0) '删除第一行,Excel报表的第一行通常是标记行
    Book.Save(fl) '保存工作簿
    Dim Proc As New Process '打开工作簿
    Proc.File = fl
    Proc.Start()
    
End If

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


加好友 发短信
等级:超级版主 帖子:107847 积分:548592 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/15 20:40:00 [显示全部帖子]

报表已经生成了,只是没有打开而已。报表事件里无法调用Process 

或者自己做按钮直接生成2个报表吧

    Dim Book As New XLS.Book(ProjectPath & "Attachments\开料单.xls")
    Dim fl As String = ProjectPath & "Reports\开料单.xls"
    Book.Build() '生成细节区
    Book.Sheets(0).Rows.RemoveAt(0) '删除第一行,Excel报表的第一行通常是标记行
    Book.Save(fl) '保存工作簿
    Dim Proc As New Process '打开工作簿
    Proc.File = fl
    Proc.Start()

    Book = New XLS.Book(ProjectPath & "Attachments\二维码.xls")
    fl = ProjectPath & "Reports\二维码.xls"
    Book.Build() '生成细节区
    Book.Sheets(0).Rows.RemoveAt(0) '删除第一行,Excel报表的第一行通常是标记行
    Book.Save(fl) '保存工作簿
    Dim Proc2 As New Process '打开工作簿
    Proc2.File = fl
    Proc2.Start()

 回到顶部