PB，页面间传值，字符串数字等

第一个页面，传值页面

Integer li_cur_row
Long ll_cfsb,ll_fybz,ll_zfpb
s_Exchange ls_Exchange//声明变量集合

ls_Exchange.StringParm[1] = dw_1.Object.cfhm[dw_1.GetRow()]
ls_Exchange.StringParm[2] = dw_1.Object.brxm[dw_1.GetRow()]
ls_Exchange.StringParm[3] = ""
is_cfhm = dw_1.Object.cfhm[dw_1.GetRow()]
OpenWithParm(w_yf_mzmk_cffy_pyr,ls_Exchange)//打开第二个页面（w_yf_mzmk_cffy_pyr）把变量集合传过去

第二个页面接收页面

s_Exchange ls_Exchange//声明变量集合
ls_Exchange = Message.PowerObjectParm//赋值变量集合

if go_AppEx.GetObject("nvo_Yfpublic_Yfsb",iu_Yfsb) = -1 then
    MessageBox("提示信息","没有操作药房的权限，请先维护药房操作权限！", Exclamation!)
    Close(This)
    Return
End If
this.title += "(" + iu_Yfsb.is_yfsb.yfmc +")"

ls_cfhm = ls_Exchange.stringparm[1]//取里面的参数cfhm。要注意参数类型
ls_brxm = ls_Exchange.stringparm[2]
st_cfhm.text = st_cfhm.text + ls_cfhm
st_brxm.text = st_brxm.text + ls_brxm