主题：因项目需要单机环境运行，单机采用的是acc数据库，有什么操作方法，可以让用户导出数据，然后接收端接收数据并快速导入到接收端的数据库中呢？

因项目需要单机环境运行，单机采用的是acc数据库，有什么操作方法，可以让用户导出数据，然后接收端接收数据并快速导入到接收端的数据库中呢？

每个项目表中都有一个关键字段   身份证号

提示：数据来源列和数据接收列是可以省略的，或者只设置其中一个，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