Foxtable(狐表)用户栏目专家坐堂 → 数据迁移问题


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

主题:数据迁移问题

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


加好友 发短信
等级:童狐 帖子:204 积分:2043 威望:0 精华:0 注册:2015/3/6 17:12:00
数据迁移问题  发帖心情 Post By:2023/2/17 17:28:00 [只看该作者]

有“总人事库”和“非集团统招人员”两个表,有个按钮,从总人事库移到非集团统招人员,其中,有个“状态”列需要做对应的修改,其它的数据都原封不动的移过去。代码如下。
If CurrentTable.Name = "总人事库" Then
        Dim Result As DialogResult
        Result = Messagebox.Show("确定将此数据迁移至【非统招数据库】 ? ", "温馨提示", MessageBoxButtons.YesNo, MessageBoxIcon.warning)
        If Result = DialogResult.Yes Then
            CurrentTable.Current("状态") = "非统招库"
            Dim dr As DataRow = DataTables("非集团统招人员").AddNew
            For Each dc As DataCol In DataTables("非集团统招人员").DataCols
                dr(dc.Name) = CurrentTable.Current(dc.Name)
            Next
            DataTables("非集团统招人员").Save()
            CurrentTable.Current.Delete()
            CurrentTable.Save()
            MessageBox.Show("已成功迁移数据 !", "提示")
        End If
    Else
        MessageBox.Show("此功能仅可应用于【总人事库】 !", "提示")
End If

但是运行后,“总人事库”表中最后一行数据的“状态”列,也会变成非统招库,他应该是不变化的。求解

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/2/17 17:32:00 [只看该作者]

        If Result = DialogResult.Yes Then
dim r as row = CurrentTable.Current
            Dim dr As DataRow = DataTables("非集团统招人员").AddNew
            For Each dc As DataCol In DataTables("非集团统招人员").DataCols
                dr(dc.Name) = r(dc.Name)
            Next
            dr("状态") = "非统招库"
            DataTables("非集团统招人员").Save()
            r.Delete()
            r.Save()
            MessageBox.Show("已成功迁移数据 !", "提示")
        End If

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


加好友 发短信
等级:童狐 帖子:204 积分:2043 威望:0 精华:0 注册:2015/3/6 17:12:00
  发帖心情 Post By:2023/2/17 18:43:00 [只看该作者]

找到原因了,是我在全局表事件里有个代码不合适

[此贴子已经被作者于2023/2/17 19:29:35编辑过]

 回到顶部