If Tables("模块权限").DataTable.HasChanges Or Tables("控件权限").DataTable.HasChanges Then Tables("控件权限").DataTable.Save Tables("模块权限").DataTable.Save
e.Form.BaseForm.Hide MessageBox.Show("授权成功")End If