以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于word报表中筛选子表符合条件的行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=75199)
--  作者：kaihang666
--  发布时间：2015/9/30 9:44:00
--  [求助]关于word报表中筛选子表符合条件的行

Dim drs As List(of DataRow) = DataTables("出库").Select("出库日期 = #" & Date.Today & "#") \'筛选出符合条件的行
If drs.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 dr As DataRow In drs \'逐行生成报表
        wrt.BuildOne(dr)
    Next
    wrt.Show() \'显示报表
End If

可以根据父表符合条件的行打印报表，如要在报表中只打印子表中符合条件的行，如何处理？
--  作者：大红袍
--  发布时间：2015/9/30 9:51:00
--  

不能限制。

 

只能把子表要打印的内容合并成字符串，直接替换到报表里面。
--  作者：包头123
--  发布时间：2016/1/19 11:33:00
--  
只能把子表要打印的内容合并成字符串，直接替换到报表里面。

这样做，做出来的效果不好。
--  作者：大红袍
--  发布时间：2016/1/19 11:36:00
--  
那没有其它方法。