If CurrentTable IsNot Nothing Then
Dim dr As Row = CurrentTable.Current
If dr IsNot Nothing Then
If CurrentTable.Current.DataRow.RowState <> DataRowState.Unchanged Then
Dim Result As DialogResult
Result = MessageBox.Show("数据修改后未保存,是否保存或撤销操作?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
dr.save()
dr.Locked = True
Else
Syscmd.Edit.Undo()
End If
End If
If dr.Locked = False Then
dr.Locked = True
End If
End If
End If
[此贴子已经被作者于2024/5/26 19:48:04编辑过]
加好友 
发短信
Post By：2024/5/26 19:47:00 [显示全部帖子]
