完全在Private Sub Form_Load()中实现不显示比较困难.但在进入时控制倒比较容易.如果实在要装载后再不显示应该在Activate时实行 Option ExplicitPrivate Sub Form_Activate() Unload Me End Sub'这一段只是让屏幕不要闪一下 Private Sub Form_Load() Me.Move 10000, 10000 End Sub
Private Sub Form_Load() '里加判断, if 有数据 then me.show else unload me exit sub endif end sub注意在菜单的click事件中应写为 load form 而不能写form.show
你可以在主窗加载时就判断: if 无数据 then 相关的菜单项.enabled = flase 这样,连加载修改成绩的窗体的机会都不会有了
Option ExplicitPrivate Sub Form_Activate()
Unload Me
End Sub'这一段只是让屏幕不要闪一下
Private Sub Form_Load()
Me.Move 10000, 10000
End Sub
if 有数据 then
me.show
else
unload me
exit sub
endif
end sub注意在菜单的click事件中应写为
load form
而不能写form.show
if 无数据 then 相关的菜单项.enabled = flase
这样,连加载修改成绩的窗体的机会都不会有了