-- 作者：jinzhengbe
-- 发布时间：2015/5/24 4:04:00
-- 从一个表到另外一个
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？
真么不好用啊
|
-- 作者：大红袍
-- 发布时间：2015/5/24 9:08:00
--
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()
|