以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  跨表转移  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=139707)
--  作者：一里阳光
--  发布时间：2019/8/19 21:02:00
--  跨表转移
想要做一个员工台账，其中有员工在岗表和员工离职表，想要把员工在岗表中的数据删除后，该数据能自动进入员工离职表，这个功能该怎么实现，求大神解答图片点击可在新窗口打开查看图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2019/8/19 21:48:00
--  
在岗表DataRowDeleting事件把数据填充过去即可

Dim Cols1() As String = {"来源列一","来源列二","来源列三"}
Dim Cols2() As String = {"接收列一","接收列二","接收列三"}
Dim dr2 As DataRow = DataTables("员工离职表").AddNew()
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = e.datarow(Cols1(i))
    Next