[求助]关于word报表中筛选子表符合条件的行 Post By:2015/9/30 9:44:00 [只看该作者]
Dim drs As List(ofDataRow) = 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 NewWordReport(Tables("出库"),tm,fl)
'定义一个WordReport
For Each dr As DataRow In drs'逐行生成报表 wrt.BuildOne(dr)
Next wrt.Show() '显示报表
End If