以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何跨表赋值？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132595)
--  作者：wh420
--  发布时间：2019/3/25 16:51:00
--  如何跨表赋值？
把当前表(TABLE1)当前行的A、B、C三个字段值 赋值到另一个表(TABLE2)中新增行的D、E、F字段中并保存，这个代码怎么写？
--  作者：有点甜
--  发布时间：2019/3/25 17:38:00
--  

参考代码

 

Dim Cols1() As String = {"来源列一","来源列二","来源列三"}
Dim Cols2() As String = {"接收列一","接收列二","接收列三"}
Dim dr1 As Row = Tables("表A").current
Dim dr2 As DataRow = DataTables("表B").AddNew()
For i As Integer = 0 To Cols1.Length -1
    dr2(Cols2(i)) = dr1(Cols1(i))
Next
--  作者：wh420
--  发布时间：2019/3/26 14:27:00
--  
非常感谢。