筛选后的数据填充到B表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

窗口中的表绑定到A表（即作为副本），在窗口中对副本表进行筛选，然后把筛选后的数据填充到B表，代码如何实现？

下面的代码会把所有A表的数据进行填充，如何只填充筛选后的数据。谢谢！

If Tables("高值耗材总使用明细表").Rows.Count>0 Then

If MessageBox.Show("是否写入高值耗材采购总计划表","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question)=DialogResult.Yes Then

Dim Cols1() As String = {"手术日期","住院号","患者姓名","中标号","组件名称","使用规格","厂家","单位","中标价","采购价","数量","金额","配送公司"}

Dim Cols2() As String = {"手术日期","住院号","患者姓名","中标号","组件名称","所用规格","生产企业","单位","中标价","采购价","数量","金额","配送公司"}

For Each dr1 As DataRow In DataTables("高值耗材总使用明细表").Select("","手术日期 DESC,患者姓名 DESC" )

Dim dr2 As DataRow = DataTables("新版高值耗材采购计划总表").AddNew()

For i As Integer = 0 To Cols1.Length -1

dr2(Cols2(i)) = dr1(Cols1(i))

End If

Dim t As Table = Tables("窗口1_Table1")
If t.Rows.Count>0 Then
    If MessageBox.Show("是否写入高值耗材采购总计划表","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question)=DialogResult.Yes Then
        Dim Cols1() As String = {"手术日期","住院号","患者姓名","中标号","组件名称","使用规格","厂家","单位","中标价","采购价","数量","金额","配送公司"}
        Dim Cols2() As String = {"手术日期","住院号","患者姓名","中标号","组件名称","所用规格","生产企业","单位","中标价","采购价","数量","金额","配送公司"}
        For Each dr1 As DataRow In DataTables("高值耗材总使用明细表").Select(t.filter,"手术日期 DESC,患者姓名 DESC" )
            Dim dr2 As DataRow = DataTables("新版高值耗材采购计划总表").AddNew()
            For i As Integer = 0 To Cols1.Length -1
                dr2(Cols2(i)) = dr1(Cols1(i))
            Next
        Next
    End If
End If

高手，膜拜中...........

主题：筛选后的数据填充到B表