主题：[求助]如何将选定行内容添加到指定表格的对应列内

如何将选定行内容添加到指定表格的对应列内

Dim f As New Filler
f.SourceTable = DataTables("表1") '指定数据来源
f.SourceCols = "名称" '指定数据来源列
f.DataTable = DataTables("表2") '指定数据接收表
f.DataCols = "名称" '指定数据接收列
f.Fill() '填充数据

以上是图例复制的，但是他把所有表1里的名称都复制过去了，而我就想要选定行的。要如何修改。请高手帮解答解答。谢谢

dim dr1 As Row = tables("适龄青年数据库").Current
Dim dr2 As DataRow = DataTables("报名数据").Addnew()
For Each c As DataCol In DataTables("适龄青年数据库").DataCols
dr2(c.name)=dr1(c.name)
next

 

 

找到一个这个，但是也不对，还有点偏差，我的两个表数据不一样。导入时有错误提示。

加一下条件

Dim idxs As String = ""
For i As Integer = Tables("表1").TopPosition To Tables("表1").ButtomPosition
    idxs &= Tables("表1").Rows(i)("_Identify")
Next

Dim f As New Filler
f.Filter = "_Identify in (" & idxs.Trim(",") & ")"
f.SourceTable = DataTables("表1") '指定数据来源
f.SourceCols = "名称" '指定数据来源列
f.DataTable = DataTables("表2") '指定数据接收表
f.DataCols = "名称" '指定数据接收列
f.Fill() '填充数据