在PB窗口之间传递参数的方法

newease

免费乐捐，感谢支持

首先，我们看看以下几个函数：
CloseWithReturn ( windowname, returnvalue )
OpenWithParm ( windowvar, parameter, windowtype {, parent } )
OpenSheetWithParm ( sheetrefvar, parameter {, windowtype }, mdiframe {, position {, arrangeopen } } )
windowname.OpenUserObjectWithParm ( userobjectvar, parameter, userobjecttype {, x, y } )。
所有函数都有一个在进行窗口操作（打开或者关闭）时存入Message对象的参数（parameter或returnvalue）。　系统Message对象有三种存储数据属性（依赖于窗口操作时的参数赋予的类型而定）：
Message.DoubleParm NumericMessage.PowerObjectParm PowerObject (PowerBuilder对象，包括用户自定义的结构数据类型)
Message.StringParm String
从上看来，如果是传递一个参数，可以如下写Script：openwithparm(w_wantparm,parmtotrans) 在w_wantparm窗口的open事件中：
string ls_getparmls_getparm=message.stringparm //或者：ls_getparm=message.doubleparm，根据parmtotrans参数的类型而定……//
接下来其他语句　如何需要传递多个参数，可以使用如下两种方法：
方法一、在openwithparm(w_wantparm,parmtotrans)中，parmtotrans为结构数据类型：lstr_delaredstr lstr_getparm接下来在w_wantparm的open事件中：lstr_delaredstr lstr_getparmlstr_getparm=message.powerobjectparm……//接下来其他语句其中，lstr_delaredstr为用户自定义结构数据类型，是值传送的，所以就算源结构变量被DESTROY了，它还是可以照常使用的。　方法二、首先创建一个类用户对象u_n_parmtostore 在该对象中将你需要传递的各种参数申明成实例变量，例如： Public: Integer IDString NameString EmailString Homepage... 则可以如下打开窗口w_wantparm，并传递参数：
u_n_parmtostore lnv_paramtotrans lnv_paramtotrans.id=1 lnv_paramtotrans.name="panya" lnv_paramtotrans.email="panya@163.net"lnv_paramtotrans.homepage="http://panya.163.net"……OpenWithParm ( w_wantparm, lnv_paramtotrans ) 　
在 w_wantparm 的 open 事件中访问传来的参数 u_n_parmtostore lnv_getparaminteger li_getidstring ls_getnamestring ls_getemailstring ls_gethomepagelnv_getparam = Message.PowerObjectParm li_getid=lnv_getparam.idls_getname=lnv_getparam.namels_gethomepage=lnv_getparam.homepagels_getemail=lnv_getparam.email……//接下来其他语句两种方法比较而言，第一种方法比较简单实用，但第二种方法更加灵活。　另外，用Message传递参数必须注意：
最好执行完窗口操作（打开或关闭）后马上将Message对象的值传给变量，因为其他script 也有可能用到Message对象。
避免传送NULL对象，以免程序出错。