Select Case e.DataCol.Name
Case "供应商名称"
'选择no后，恢复
Dim Result As DialogResult
Result = MessageBox.Show("是否把" & e.OldValue & "修改为" & e.NewValue & "？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.NO Then
With Tables("供应商信息表")
If .Current IsNot Nothing Then
.Current.Reject()
End If
End With
Else If Result = DialogResult.YES Then
With Tables("供应商信息表")
If .Current IsNot Nothing Then
.Current.Save()
End If
End With
End If
End Select
加好友 
发短信
Post By：2023/4/28 10:29:00 [只看该作者]
