1、
For Each t As Table In Tables If t.name <> "仓库产品明细表" Then t.Visible = False End IfNextbasemainform.controls("C1Ribbon1").Visible = False
2、做一个主窗口,,项目打开的时候,自动打开。