以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  我选择了6条记录,只有2条记录能全部读出到WORD报表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=61501)

--  作者:鄢炼
--  发布时间:2014/12/13 16:43:00
--  我选择了6条记录,只有2条记录能全部读出到WORD报表

Dim rs As List(of Row) = Tables("用户表").GetCheckedRows
If rs.Count > 0 Then \'如果存在符合条件的行
    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 r As Row In rs \'逐行生成报表
        wrt.BuildOne(r)
    Next
    wrt.Show() \'显示报表
End If

 

我选择了6条记录,只有2条记录能全部读出到WORD报表,从第三条开始,就只能读出部分记录到WORD报表?


--  作者:鄢炼
--  发布时间:2014/12/13 16:51:00
--  
附件为报表模板
--  作者:鄢炼
--  发布时间:2014/12/13 16:52:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:自愿申请表.zip


--  作者:鄢炼
--  发布时间:2014/12/13 16:56:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:申请表.zip

附件为生成报表后的文件。
--  作者:wyz20130512
--  发布时间:2014/12/13 17:06:00
--  回复:(鄢炼)我选择了6条记录,只有2条记录能全部读...

不可能呀?你几呼是套用帮助中一段代码。加我的QQ468163809,详谈。

[此贴子已经被作者于2014-12-13 17:07:38编辑过]

--  作者:有点甜
--  发布时间:2014/12/14 10:07:00
--  

 代码是正确的,你再检测一下你的模板,表达式要用半角 http://www.foxtable.com/help/topics/2885.htm

 


--  作者:鄢炼
--  发布时间:2014/12/14 10:14:00
--  

我都写了几次了。。如果不行的话,为什么前两条记录又能读出来?后面的记录读不出来?


--  作者:有点甜
--  发布时间:2014/12/14 10:41:00
--  

 例子发上来测试。