以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助：如何从一表中，根据ID字段，将每一行中的几个字段写入到另一个表中？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=56767)
--  作者：peterx
--  发布时间：2014/9/11 22:32:00
--  求助：如何从一表中，根据ID字段，将每一行中的几个字段写入到另一个表中？
求助：如何从一表中，根据ID字段，将每一行中的几个字段写入到另一个表中？
表1：
ID      设备      名称      数量      。。。
1
2
3
。。。

表2:
ID     设备部    名称


谢谢
--  作者：wyz20130512
--  发布时间：2014/9/11 23:01:00
--  回复：（peterx）求助：如何从一表中，根据ID字段，将...

能将原文件传过来看看吗？

 

我的QQ 468163809

 

共同学习，共同提高。

[此贴子已经被作者于2014-9-11 23:02:19编辑过]
--  作者：有点甜
--  发布时间：2014/9/11 23:06:00
--  

Dim sCols() As String = {"列名1", "列名2", "列名3"}
Dim dCols() As String = {"列名A", "列名B", "列名C"}

For Each dr As DataRow In DataTables("表A").DataRows
    Dim fdr As DataRow = DataTables("表B").Find("ID = \'" & dr("ID") & "\'")
    If fdr IsNot Nothing
        For i As Integer =0 To sCols.Length -1
            fdr(dCols(i)) = dr(sCols(i))
        Next
    End If
Next
--  作者：peterx
--  发布时间：2014/9/12 17:52:00
--  
上代码无效，请老师通过下例子指点：谢谢 上传示例如下：
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目112.zip
--  作者：有点甜
--  发布时间：2014/9/12 17:56:00
--  

Dim sCols() As String = {"列名1", "列名2", "列名3"}
Dim dCols() As String = {"列名A", "列名B", "列名C"}

For Each dr As DataRow In DataTables("表A").DataRows
    Dim fdr As DataRow = DataTables("表B").Find("ID = \'" & dr("ID") & "\'")
    If fdr Is Nothing
        fdr = DataTables("表B").AddNew
        fdr("id") = dr("id")
    End If
    For i As Integer =0 To sCols.Length -1
        fdr(dCols(i)) = dr(sCols(i))
    Next
Next
--  作者：peterx
--  发布时间：2014/9/13 11:20:00
--  
谢谢