以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何实现从一个表选择某条数据（当中某些字段）导入另一个表格  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=81291)
--  作者：kendyqzj
--  发布时间：2016/2/23 17:57:00
--  如何实现从一个表选择某条数据（当中某些字段）导入另一个表格
如标题所说，
如何实现从一个表选择某条数据（当中某些字段）导入另一个表格
可以选择多条数据，然后勾选某些字段，然后将这些数据导入另一个表格，
例如有表A，表A有如下信息姓名、性别、年龄、工作，住址
表B有如下信息姓名、年龄、住址
我想选择表A张三和李四的信息 姓名、年龄和住址等信息导入表B
请问这个怎么实现？谢谢
--  作者：大红袍
--  发布时间：2016/2/23 18:05:00
--  

参考

 

http://www.foxtable.com/help/topics/1776.htm

 

http://www.foxtable.com/help/topics/1533.htm

 

 

Dim Cols1() As String = {"来源列一","来源列二","来源列三"}
Dim Cols2() As String = {"接收列一","接收列二","接收列三"}
Dim rs As List(of Row) = Tables("表A").GetCheckedRows()
For Each dr1 As Row In rs
    Dim dr2 As DataRow = DataTables("表B").AddNew()
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next
Next

 
--  作者：kendyqzj
--  发布时间：2016/2/23 22:46:00
--  
OK,万分感谢！