提示:数据来源列和数据接收列是可以省略的,或者只设置其中一个,Filler会自动查找同名列进行匹配填充。
方法:
Fill
开始填充数据
示例:
例如从订单表中提取不重复的客户、产品数据,填充到统计表中:
dim f As New Filler
f.SourceTable = DataTables("订单") '指定数据来源
f.SourceCols = "产品,客户" '指定数据来源列
f.DataTable = DataTables("统计") '指定数据接收表
f.DataCols = "产品,客户" '指定数据接收列
f.Fill() '填充数据
项目已经有了一个数据源A
该怎么操作这个fill呢?
是不是我还需要用代码创建另外一个数据源B
然后遍历数据源A的所有表 数据源b的所有表
代码如下:
Dim lst As List(Of String)
lst = Connections("A").GetTableNames
Connections.Add("B","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\abc.mdb;Persist Security Info=False")
Dim lst1 As List(Of String)
lst1 = Connections("B").GetTableNames
For Each nm As String In lst
For Each nm1 As String In lst1
dim f As New Filler
f.SourceTable = NM '指定数据来源
f.DataTable = NM1 '指定数据接收表
F.Filter="" 这个条件该怎么写 才能实现nm 与nm1 之间是否相同的判断 如果相同就不重复写入 如果一行中某列不同 就写入数据
f.Fill() '填充数据
next
next