以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  报表怎么可以选择打印指定行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=69317)
--  作者：yongxuanchen
--  发布时间：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
--  发布时间：2015/6/3 8:46:00
--  
看示例二 http://www.foxtable.com/help/topics/2890.htm
--  作者：yongxuanchen
--  发布时间：2015/6/6 9:13:00
--  还不能实现功能
   事例二中的例子只是实现了打印筛选出来的行。我需要的是打印的是：指定的某一行或筛选出来的行
--  作者：Bin
--  发布时间：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
--  发布时间：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
--  发布时间：2015/6/6 9:39:00
--  
你打印前,重新加载了一遍.那当前行就变第一行了.