a = MessageBox.Show("是否保存", "请确认", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If a = DialogResult.Yes Then
DataTables("词典").save
Else
Forms("词典").Close
End If
这段代码输入 点否还是可以保存 ,请高手指点
-- 作者:有点甜
-- 发布时间:2018/8/8 9:41:00
--
Dim a As DialogResult a = MessageBox.Show("是否保存", "请确认", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If a = DialogResult.Yes Then DataTables("词典").save Else DataTables("词典").RejectChanges Forms("词典").Close End If