-- 作者:zgjmost
-- 发布时间:2015/6/22 10:57:00
--
此主题相关图片如下:qq截图20150622105631.png
Forms("主界面").Open() MainTable = Tables("主界面")
For Each t As Table In Tables If t.name = "选课数据表" OrElse t.name = "学生信息表" OrElse t.name = "考试数据表" OrElse t.name = "系统设置" OrElse t.name = "主界面" Then \'t.Visible=True Else t.visible=False End If Next
afteropenproject 中有上面的代码!
|