另外在帮助yuanbin的过程中,发现大家可能会犯的常见错误:
1、在关闭窗口后继续调用窗口控件,例如下面的代码:
e.Form.Close()
Vars("变量") = e.Form.Controls("TextBox1").Value
窗口已经关闭,对象不存在了,所以自然出错。
如果你要调用窗口中的控件,必须在e.form.close语句之前调用,例如:
Vars("变量") = e.Form.Controls("TextBox1").Value
e.Form.Close()
2、自定义登陆窗口的退出按钮代码为:
Syscmd.Project.Exit()
AfterOpenProject的代码为:
代码段一
forms("登陆窗口").Open
代码段二
如果用户在登陆窗口单击按钮,此时系统已经关闭,但是代码段二会继续执行,报错的概率极大。
所以我们最好增加一个逻辑变量,将退出按钮的代码改为:
Vars("变量") = True
Syscmd.Project.Exit()
将AfterOpenProject事件代码改为:
代码段一
Forms("登陆窗口").Open()
if Vars("变量") = true Then
Return
Else
代码段二
End If
只有这样处理,才能确保用户在登陆窗口单击退出按钮,系统已经退出之后,不会再有代码继续执行
[此贴子已经被作者于2009-1-4 10:43:02编辑过]