我选择了6条记录,只有2条记录能全部读出到WORD报表 Post By:2014/12/13 16:43:00 [只看该作者]
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