AfterOpenProjct事件
Dim a As object = BaseMainForm.controls("C1Ribbon1")a.Enabled = FalseDataTables.AllowEdit = False