山寨机中的战斗机！	程序优化工程师到底对IT界有没有贡献

Bad runtime function

楼主jojophak（我不是随便的人）2006-01-19 08:16:22 在 PowerBuilder / 基础类提问

错误提示:Power builder Application Execution Error(R0021).
bad runtime function reference reference at line 26 in open event of object w_bargainq.

string ls_string
integer li_pos
blob lb_text1,ib_text2
ls_string=message.stringparm
li_pos=pos(ls_string,'@',1)
ls_param=left(ls_string,li_pos - 1)
ls_table=mid(ls_string,li_pos+1,len(ls_string) - li_pos)

setnull(lb_text1)
setnull(ib_text2)
//messagebox("ls_param",ls_param+"-"+ls_table+string(len(ls_param)))
ls_param=string(ls_param)
if ls_table="clientbaseinfo" then
st_1.text="客户概况:"
sqlca.autocommit=true
selectblob clientcircs
into :lb_text1
from clientbaseinfo
where clientno=:ls_param;//clientno是主键
sqlca.autocommit=false
if sqlca.sqlnrows>0 then
commit;
else
rollback;
end if
ole_1.objectdata=lb_text1//26行
end if
运行时,不同的ls_param有可能产生上面的错误提示,有的能正确运行,有的有发生错误.

哪位兄弟帮帮忙,我实在找不出原因.

问题点数：20、回复次数：10Top

1 楼pmz（）回复于 2006-01-19 08:33:07 得分 7

if isvalid(ole_1.objectdata) then
ole_1.objectdata=lb_text1
end if
Top

2 楼jojophak（我不是随便的人）回复于 2006-01-19 08:47:57 得分 0

楼上的兄弟,不行啊
Top

3 楼bbdx2523（模二战士）回复于 2006-01-19 08:52:47 得分 6

把w_bargainq的OPEN事件的代码贴出来看看Top

4 楼jojophak（我不是随便的人）回复于 2006-01-19 08:54:15 得分 0

上面的就是Top

5 楼hangzhou6274（拉面贵了，馒头小了，领导知道吗？）回复于 2006-01-19 09:08:48 得分 7

是不是应为你的字符串里面包含了一些特殊的字符，ole控件不接受？你的ole_1是什么东西？Top

6 楼jojophak（我不是随便的人）回复于 2006-01-19 09:17:46 得分 0

里面是word文档Top

7 楼hangzhou6274（拉面贵了，馒头小了，领导知道吗？）回复于 2006-01-19 09:23:53 得分 0

这种方法我也没有用过，但是有些可以有些不可以估计还是你内容的问题，去仔细检查一下吧Top

8 楼jojophak（我不是随便的人）回复于 2006-01-19 09:25:14 得分 0

即使二条记录里的clientcircs字段是同一个文件,也会出现上面的情况
数据库里,这个字段是text型的
有人说text类型不可以使用selectblob和updateblob,我在网上查了下,也有的说可以用.
Top

9 楼pmz（）回复于 2006-01-19 11:14:01 得分 0

ole用GETDATA（）
具体的看帮助

string ls_data

integer li_rtn

li_rtn = ole_word.GetData(ClipFormatText!, ls_data)

IF li_rtn <> 1 THEN RETURNTop

10 楼jojophak（我不是随便的人）回复于 2006-01-19 11:34:43 得分 0

可以向数据库里面存储记录
现在取记录时,就出现上面的情况
Top