以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何将选定行内容添加到指定表格的对应列内  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=28960)
--  作者：270254728
--  发布时间：2013/2/23 22:53:00
--  [求助]如何将选定行内容添加到指定表格的对应列内

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


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

以上是图例复制的，但是他把所有表1里的名称都复制过去了，而我就想要选定行的。要如何修改。请高手帮解答解答。谢谢
--  作者：270254728
--  发布时间：2013/2/23 23:11:00
--  

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

 

 

找到一个这个，但是也不对，还有点偏差，我的两个表数据不一样。导入时有错误提示。
--  作者：lin_hailun
--  发布时间：2013/2/25 13:09:00
--  
加一下条件

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() \'填充数据