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

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()

我想把当前 表（user）选中的行 添加到 bell表  上面的代码有问题的me？

真么不好用啊

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()