窗体传递参数问题请教?

yodong

我有一个单据审核界面,分主窗体和子窗体.为了少用窗体数量,我把主窗体设计为通用的.在打开的时候根据openargs参数,用代码设置子窗体的源对象.我写了一个函数.
Public Function open_pubform(lb As Integer)   '单据审核
On Error GoTo aa
DoCmd.OpenForm "pub_frm通用界面_单据审核", , , , , , lb
bb:
Exit Function
aa:
Resume bb
End Function
'===============================================
但是这样设计不能同时打开两个以上同样界面.我又改为下面的代码,这样可以同时打开多个界面了.但是openorgs参数如何传递过去.如果用公共变量的方法是可以的.但是我想知道在设置为窗体对象后如何传递.和子窗体如何取得父窗体的文本框值.在没有设置为对象的时候,用Forms!OrderForm!NewData方法,当同时打开多个对象时,如何知道窗体名称和引用呢.谢谢!
Dim arrF(3) As Form
'通用的审核介面
Public Function open_pubform(lb As Integer)   '单据审核
On Error GoTo aa
Set arrF(0) = New Form_pub_frm通用界面_单据审核
arrF(0).Visible = True
bb:
Exit Function
aa:
Resume bb
End Function

aslxt

貌似可以用DNA亲子鉴定的方法？
在你准备要孩子，你必须给他遗传基因，就算这个孩子交给别人抚养，他长大后，可以通过比对基因遗传信息，如果吻合度极高，就认定你为父亲，然后他就可以从你的口袋中拿东西了。

yodong

??????