If DataTables("会员信息表").HasChanges Then Dim Result As DialogResult Result = MessageBox.Show("需要保存吗?", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) If Result = DialogResult.Yes Then DataTables("会员信息表").save Forms("会员信息表").close End If Else Forms("会员信息表").close End If
加好友 
发短信
Post By：2012/11/25 18:34:00 [显示全部帖子]
