Foxtable(狐表)用户栏目专家坐堂 → 跨表转移


  共有1760人关注过本帖树形打印复制链接

主题:跨表转移

帅哥哟,离线,有人找我吗?
一里阳光
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:1 积分:70 威望:0 精华:0 注册:2019/8/19 20:50:00
跨表转移  发帖心情 Post By:2019/8/19 21:02:00 [只看该作者]

想要做一个员工台账,其中有员工在岗表和员工离职表,想要把员工在岗表中的数据删除后,该数据能自动进入员工离职表,这个功能该怎么实现,求大神解答图片点击可在新窗口打开查看图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107135 积分:544918 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部