If DataTables("游戏信息表").HasChanges Then Dim result As dialogresult result = MessageBox.Show("游戏信息内容改变,是否保存?", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) If result = DialogResult.Yes Then DataTables("游戏信息表").Save ElseIf result = DialogResult.No Then DataTables("游戏信息表").RejectChanges Else e.cancel = True End If End If