以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]word报表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=62760)
--  作者：anxue
--  发布时间：2015/1/7 16:30:00
--  [求助]word报表

Dim rs As List(of Row) = Tables("汇款申请单表").GetCheckedRows
If rs.Count > 0 Then \'如果存在符合条件的行
    Dim tm As String  = ProjectPath & "Attachments\\汇款申请.docx" \'指定模板文件
    Dim fl As String = ProjectPath & "Attachments\\汇款申请.docx" \'指定目标文件
    Dim wrt As New WordReport(Tables("汇款申请单表"),tm,fl) \'定义一个WordReport
    For Each r As Row In rs \'逐行生成报表
        wrt.BuildOne(r)
    Next
    wrt.Show() \'显示报表
End If

 

 

word报表，在窗口设计一个按钮 选择逻辑列打印  （根据已经勾选的行生成报表）代码加在按钮上   点按钮不行呢，什么原因？
--  作者：Bin
--  发布时间：2015/1/7 16:32:00
--  
所谓的不行,是指没执行? 还是?
--  作者：anxue
--  发布时间：2015/1/7 16:36:00
--  

点按钮 没动静

试了好几次了，word模板都做好了
--  作者：Bin
--  发布时间：2015/1/7 16:39:00
--  
If rs.Count > 0 Then \'如果存在符合条件的行
messagebox.show(rs.count)


看看有没弹出提示
--  作者：有点甜
--  发布时间：2015/1/7 16:39:00
--  
 不是选择逻辑列吧？你的代码，你要勾选每行最前面的选择框啊。
--  作者：anxue
--  发布时间：2015/1/7 16:54:00
--  

啊
图片点击可在新窗口打开查看此主题相关图片如下：word.jpg
图片点击可在新窗口打开查看

选择逻辑列打印     窗口是停靠最上面的 打印按钮

（也就是如何选择连续打印  word模板）
--  作者：有点甜
--  发布时间：2015/1/7 16:58:00
--  

Dim flag As Boolean = False
Dim tm As String  = ProjectPath & "Attachments\\汇款申请.docx" \'指定模板文件
Dim fl As String = ProjectPath & "Attachments\\汇款申请.docx" \'指定目标文件
Dim wrt As New WordReport(Tables("汇款申请单表"),tm,fl) \'定义一个WordReport
For Each r As Row In Tables("汇款申请单表").Rows
    If r("打印") = True Then
        flag = True
        wrt.BuildOne(r)
    End If
Next
If flag Then
    wrt.Show() \'显示报表
End If