pb中打开窗口并传递参数

try
 long ll_result;
 ll_result=1;
openwithparm(w_sb_order,UserCode);
catch(RuntimeError er)
  errorMsg=er.Text;
  ll_result=0
finally
 return ll_result;
end try

在打开的窗口中使用参数时这样：

 ls_temp=string(message.stringparm)