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