主题：保存成功的提示

1、e.Cancel = True 代码后面，应该跟一句 return，这样才不会重复提示；

2、保存提示可以这样写，单独做个保存按钮。

Dim dt As DataTable = DataTables("表A")
dt.save
If dt.HasChanges = False Then
    msgbox("保存成功")
Else
    msgbox("保存失败")
End If