Question

powerbuilder application execution error r0002 求大神指点 错误代码在问题补充

powerbuilder application execution error r0002

错误行 找出来了第十三行 is_id= struc.id 程序运行报错 求大神指点
代码如下

environment lenv_system
integer li_scrwidth,li_scrheight
setredraw(false)
getenvironment(lenv_system)
li_scrwidth=pixelstounits(lenv_system.screenwidth,xpixelstounits!)
li_scrheight=pixelstounits(lenv_system.screenheight,ypixelstounits!)
move(((li_scrwidth)-(this.width))/2,((li_scrheight)-(this.height))/2)
setredraw(true)
idw_dw1=tab_1.tabpage_1.dw_1
idw_dw2=tab_1.tabpage_2.dw_2
struc_zwbd struc
struc=Message.PowerObjectParm
is_id = struc.id
is_xm = struc.xm
is_tabname = struc.tab_name
sle_1.text = is_id
sle_2.text = is_xm

Answer 1

同意1楼的意见！另外
struc_zwdb应该是一个结构，id和xm和tab_name是它的三个属性，你看看这三个属性是否存在，数据类型是否与所赋值的变量类型是否一致！

Answer 2

显然问题在这儿：

struc=Message.PowerObjectParm

你这个对象从哪儿传过来的呢？
有没有可能有的地方，没有传递这个对象呢？

另外，建议：

将这2行代码放到最开始：

struc_zwbd struc
struc=Message.PowerObjectParm

Answer 3

struc=Message.PowerObjectParm
is_id = struc.id
需要强制转型
struc =(struc_zwbd)Message.PowerObjectParm