求助：如何将已筛选出的数据为导出为报表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

1.大检查记录表里面有很多问题，通过系统菜单筛选出了某一个项目，希望只导出当前筛选项目的罚款单，但是单击导出罚款单按钮后，还是把整个表里面的罚款问题都导出来了。

此主题相关图片如下：筛选出项目.jpg

单击代码如下：

Forms("提示窗口").open

Application.DoEvents()'显示正在执行,请稍后

Dim tm As String = ProjectPath & "Attachments\处罚通知单.doc" '指定模板文件

Dim fl As String = ProjectPath & "Reports\处罚通知单.doc" '指定目标文件

Dim wrt As New WordReport(Tables("季度大检查记录表"),tm,fl) '定义一个WordReport

Dim str As String = ""

Dim drs As List(of DataRow) = DataTables("季度大检查记录表").Select("[经济处罚] = '是'") '筛选出符合条件的行

If drs.Count > 0 Then '如果存在符合条件的行

For Each r As DataRow In drs '逐行生成报表

str = str & vbcrlf & r("存在问题")

str = str.Trim(vbcr).Trim(vblf)

End If

wrt.Replace("[存在问题]",str)

wrt.BuildOne(Tables("季度大检查记录表").current)

wrt.Show() '显示报表

Forms("提示窗口").Close

示例如下：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:安全管理标准化平台.table

报表模板如下：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:处罚通知单.zip

……

Dim str As String = ""

For Each r As Row In Tables("季度大检查记录表").rows '逐行生成报表

str = str & vbcrlf & r("存在问题")

str = str.Trim(vbcr).Trim(vblf)

wrt.Replace("[存在问题]",str)

……

不行啊，这样就把所有的问题都显示出来了。一是通过菜单筛选出某个项目。二是筛选出[经济处罚]=是的问题，代码中已经筛选。问题是不管我是不是通过菜单筛选出某个项目，单击导出时把所有项目 [经济处罚]=是的问题都导出来了。

替换了老师的代码后，是实现了导出当前筛选出的项目，但是把所有的问题都导出来了，没有把[经济处罚]=是的问题筛选出来。

能不能筛选出某个项目后，导出[经济处罚]=是的问题？？？

……

Dim str As String = ""

For Each r As Row In Tables("季度大检查记录表").rows '逐行生成报表

if r("经济处罚") = true

str = str & vbcrlf & r("存在问题")

end if

str = str.Trim(vbcr).Trim(vblf)

wrt.Replace("[存在问题]",str)

……

主题：求助：如何将已筛选出的数据为导出为报表