窗體新實例的奇怪現象

HG

如下語句打開窗體的一個新實例。
Private Sub com_modify_Click()
On Error GoTo err_this
Dim newfrm As Form

Set newfrm = New Form_TRADE_ORDER
newfrm.Caption = "交易:定單->修改"
newfrm.AllowEdits = True
newfrm.SetFocus
'打開一個新窗本的實例,使其具有可編輯屬性
xit_sub:
   Exit Sub
err_this:
   MsgBox Err.Description
   Resume exit_sub
End Sub
-------------------------------------------------------------------
現在的情況是:
單擊打開窗體新實例的按鈕后，看到新實例的畫寫一閃而過，好像打開了，
但又新實例窗體仍末出現。為什么？

HG

以上是在繁體98，英文accessxp 個人版下發生的，
有朋友給指點一下嗎？
多多謝?

HG

所言極是，大能的我看過，
也同樣出現此現像？
可否有辦法解決。
請指點
多謝

freemanager

这是一个不易发觉的基本常识错误：
   你的NewFrm变量声明是在一个Private过程中，当这个过程执行完毕的时候，该过程中声明的变量都会从内存中释放，从而，基于该变量所创建的所有对象实例也通通地释放掉了。
就好象过程中有这句一样：set newFrm = nothing
解决的办法就是将此变量在比它高一级的模块中声明即可，如果你的该实例所要求的生命期比这还要长，可以在工程模块中声明。
同时，在代码中最好加上NewFrm.Visible = True才确认窗体的可见性。
  这也可以给大家一个提示：只要在合适的地方将变量newFrm从内存中释放，则不管你在此变量基础上创建了多少个实例都将一起消失。

zhuyiwen

非常精辟！非常正确！[em26]

[此贴子已经被zhuyiwen于2002-6-17 19:10:23编辑过]

make

厉 害 ！！这里高手不露相

HG

freemanager真是一言正中要害，此問是困弟久已現以解決，多多謝。