有没有公共窗体间参数传递的实例发一个?(送上SQL宝典和VB函数集作礼)

camplus

有没有公共窗体间参数传递的实例发一个?有发过贴,也有回复但还是不能实现.

(送上SQL宝典和VB函数集作礼)

kunlun

我下载了，所以我回复。你的问题能不能再祥细一点，这样我有点不知从哪儿开始说起。。。

camplus

Option Compare Database

Dim cf As Form   '定义CF为一窗体Private Sub Form_Open(Cancel As Integer)'公共窗体打开时获取窗体名(实为之前一个窗体名)

Set cf = Screen.ActiveForm'MsgBox "Current form is " & cf.Name'可心显示确认一下

End SubPrivate Sub lis_mj_DblClick(Cancel As Integer)'这是一个列表框的双击事件

Debug.Print Me.lis_mj.Column(5)

cf.Form!szID = Forms!frm_pub.Form!lis_mj.Column(5)

DoCmd.Close

End Sub现在我用上面的方法实现了,以上代码都写在公共窗体中.请各位高人指定.