有“总人事库”和“非集团统招人员”两个表，有个按钮，从总人事库移到非集团统招人员，其中，有个“状态”列需要做对应的修改，其它的数据都原封不动的移过去。代码如下。
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
但是运行后，“总人事库”表中最后一行数据的“状态”列，也会变成非统招库，他应该是不变化的。求解
加好友 
发短信
Post By：2023/2/17 17:28:00 [只看该作者]
