Foxtable(狐表)用户栏目专家坐堂 → 报表怎么可以选择打印指定行


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

主题:报表怎么可以选择打印指定行

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


加好友 发短信
等级:童狐 帖子:238 积分:1986 威望:0 精华:0 注册:2015/2/16 13:29:00
报表怎么可以选择打印指定行  发帖心情 Post By:2015/6/2 23:25:00 [只看该作者]

DataTables("电梯信息表").Load
Dim tm As String  = ProjectPath & "Attachments\自检.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\自检.doc" '指定目标文件
Dim wrt As New WordReport(Tables("信息表"),tm,fl) '定义一个WordReport
wrt.Build() '逐行生成报表
wrt.Show() '显示报表

 

为什么我使用这段代码答应报表,老是只能打印第一行,怎么能打印指定行或选定行,谢谢。


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/6/3 8:46:00 [只看该作者]


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


加好友 发短信
等级:童狐 帖子:238 积分:1986 威望:0 精华:0 注册:2015/2/16 13:29:00
还不能实现功能  发帖心情 Post By:2015/6/6 9:13:00 [只看该作者]

   事例二中的例子只是实现了打印筛选出来的行。我需要的是打印的是:指定的某一行或筛选出来的行

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/6/6 9:15:00 [只看该作者]

变通一下
改为遍历当前表的rows 即可

当前行你直接用 tables("X").current 即可

 Dim tm As String  = ProjectPath & "Attachments\出库单.doc" '指定模板文件
    Dim 
fl As String = ProjectPath & "Reports\出库单.doc" '指定目标文件
    Dim 
wrt As New WordReport(Tables("出库"),tm,fl'定义一个WordReport
    For Each 
dr As DataRow In drs '逐行生成报表
        
wrt.BuildOne(tables("X").current )
    Next
    
wrt.Show() '显示报表

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


加好友 发短信
等级:童狐 帖子:238 积分:1986 威望:0 精华:0 注册:2015/2/16 13:29:00
我现在只想打印当前行了  发帖心情 Post By:2015/6/6 9:35:00 [只看该作者]

DataTables("电梯信息表").Load
Dim tm As String  = ProjectPath & "Attachments\自检数据现场信息表.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\自检数据现场信息表.doc" '指定目标文件
Dim wrt As New WordReport(Tables("电梯信息表"),tm,fl) '定义一个WordReport
'wrt.Build() '逐行生成报表
wrt.BuildOne(Tables("电梯信息表").current )
wrt.Show() '显示报表

 

我现在只想打印当前行了,但是采用上面的代码,还是只能打印第一行?


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/6/6 9:39:00 [只看该作者]

你打印前,重新加载了一遍.那当前行就变第一行了.

 回到顶部