主题：从一个表到另外一个

Dim idxs As String = ""
For i As Integer = Tables("user").TopPosition To Tables("user").BottomPosition
    idxs &= "'" & Tables("user").Rows(i)("id") & "',"
Next

Dim f As New Filler
f.Filter = "id in (" & idxs.Trim(",") & ")"
f.SourceTable = DataTables("user") '指定数据来源
f.SourceCols = "name,address,phone,phone1" '指定数据来源列
f.DataTable = DataTables("bell") '指定数据接收表
f.DataCols = "name,address,phone1,phone2" '指定数据接收列
f.Fill() '填充数据
DataTables("bell").save()