Foxtable(狐表)用户栏目专家坐堂 → [求助]EXCEL报表<ALL>不生效


  共有4538人关注过本帖平板打印复制链接

主题:[求助]EXCEL报表<ALL>不生效

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


加好友 发短信
等级:一尾狐 帖子:413 积分:3142 威望:0 精华:0 注册:2019/8/12 17:36:00
[求助]EXCEL报表不生效  发帖心情 Post By:2022/6/6 13:50:00 [只看该作者]

If r IsNot Nothing Then
    Dim Book As New XLS.Book(ProjectPath & "Attachments\订单打印.xls")
    Dim fl As String = ProjectPath & "Reports\全订单" & r("单据编号") & ".xls"
    Book.AddRelation("订单列表","_Identify","所有订单打印","id")
    Book.Build()
    Book.Save(fl)
    Dim Proc As New Process
    Proc.File = fl
    Proc.Start()
End If

表 “所有订单打印 ” 为临时表,通过AddRelation创建关联后,在EXCEL报表中使用<ALL>无效,始终只会打印最后一条数据。请问是上面写法有问题吗?需要怎么改进。

 回到顶部
总数 22 1 2 3 下一页