这个怎么实现点击取消时候,系统什么都不做 Post By:2012/11/25 15:50:00 [显示全部帖子]
If DataTables("会员信息表").HasChanges Then Dim Result As DialogResult Result = MessageBox.Show("需要保存吗?", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) If Result = DialogResult.Yes Then DataTables("会员信息表").save Forms("会员信息表").close Else If Result = DialogResult.No Then DataTables("会员信息表").RejectChanges Forms("会员信息表").close End If End If Forms("会员信息表").close