主题：数据填充器

 没找到，说明你列名写错了。

 具体问题，做个例子发上来

Dim Cols1() As String = {"编号"}
Dim Cols2() As String = {"编号"}
For Each dr1 As DataRow In DataTables("产品资料").Select("[月销量] > 80")
    Dim dr2 As DataRow = DataTables("采购明细表").AddNew()
   
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next
   
    dr2("日期") = Tables("采购主表").Current("日期")
Next