主题：数据填充器

数据填充器可以接收表  可以是子表吗  这个哪里有问题帮我看看这样可以吗   怎么加入筛选条件

Dim f As New  Filler
 f.SourceTable = DataTables("产品资料") '指定数据来源
f.SourceCols = "产品名称,销量统计"  '指定数据来源列
f.DataTable = DataTables("采购主表.采购明细") '指定数据接收表
f.DataCols = "产品名称,销量统计"  '指定数据接收列
f.Fill() '填充数据

非常感谢

Dim f As New  Filler 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

老师帮我看看

不好意思老师   我还是没搞懂  关联列怎么填充父表的关联列  （日期）呢

还是没搞懂怎么给  关联的日期列  赋值父表的日期

Dim Cols1() As String = {"编号"}
Dim Cols2() As String = {"编号"}
For Each dr1 As DataRow In DataTables("产品资料").Select("[月销量] > 100")
     Dim dr2 As DataRow = DataTables("采购明细表").AddNew()

     For i As Integer = 0 To Cols1.Length -1
         dr2(Cols2(i)) = dr1(Cols1(i))

     Next
 Next

这样也行   不过问题解决了    呵呵    感谢甜老师的耐心解答