Validating事件判断后使用e.cancel=true,光标在原输入框,但退出按钮也不能用
If T ables("表A"). Current("A1") IsNot Nothing Then
Dim Result As DialogResult
Result = MessageBox.Show("是否要退出,退除将不保留当前新增数据!,是不是?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
MessageBox.Show("真的要退是吗.","提示")
Tables("表A").Current.Delete
Forms("窗口").Close()