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