动态设置报表打印条件，究竟是如何做呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 动态设置报表打印条件，究竟是如何做呢？

共有2620人关注过本帖树形打印复制链接主题：动态设置报表打印条件，究竟是如何做呢？

有点色

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/7 2:16:00 [显示全部帖子]

代码换成

Sheet(2,4).Value = "<第一列='" & n & "'>"

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/7 9:09:00 [显示全部帖子]

你2楼的例子，我测试，没问题

Dim t As Table = Tables("表B")
For Each n As String In t.DataTable.GetValues("第一列", "第一列 is not null" & iif(t.Filter>"", " and (" & t.filter & ")", ""))
    Dim Book As New XLS.Book(ProjectPath & "Attachments\花名册.xls") '打开模板
    Dim fl As String = ProjectPath & "Reports\" & n & ".xls"
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Sheet(2,4).Value = "<第一列='" & n & "'>" '写入打印条件
    Book.Build() '生成报表
    Book.Save(fl)
Next

有点色

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/11 17:41:00 [显示全部帖子]

1、你<End>的位置没有写对

下载信息 [文件大小：下载次数： ]
点击浏览该文件:档案存底.xls

2、数单元格的啊，从0开始数

Dim t As Table = Tables("表B")
For Each n As String In t.DataTable.GetValues("第一列", "第一列 is not null" & iif(t.Filter>"", " and (" & t.filter & ")", ""))
    Dim Book As New XLS.Book(ProjectPath & "Attachments\档案存底.xls") '打开模板
    Dim fl As String = ProjectPath & "Reports\" & n & ".xls"
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Sheet(1,15).Value = "<第一列='" & n & "'>" '写入打印条件
    Book.Build() '生成报表
    Book.Save(fl)
Next

下一主题 >> << 上一主题

主题：动态设置报表打印条件，究竟是如何做呢？