datastore.retrieve返回-1

hds8229830 2008-08-29 03:58:28
lds_acct = create datastore
lds_acct.dataobject = 'd_flow_calcdirect'
lds_acct.settransobject(sqlca)
ll_count = lds_acct.retrieve(as_table_id,as_model_window,as_button_id)

为什么ll_count = -1,
打开数据窗口,检索数据没有问题
...全文
137 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
编程夜猫 2008-08-30
  • 打赏
  • 举报
回复
[Quote=引用 3 楼 AFIC 的回复:]
编译的时候,把所有pbl都够上发布成pbd就好了。
[/Quote]
3楼正理。

datawindow.dataobject =“”

datastore.dataobject =“”
这样的形式,编译成PBD发布
tiggerliu 2008-08-30
  • 打赏
  • 举报
回复
[Quote=引用 1 楼 jlwei888 的回复:]
-1就是有错误了!
那几个参数有问题了!你在pb打开d_flow_calcdirect,把参数手工输入试试知道了
[/Quote]
sinlan 2008-08-30
  • 打赏
  • 举报
回复
参数一一对应
kenryu3450 2008-08-30
  • 打赏
  • 举报
回复
把数据窗口重新生成下 或者 把整个程序重新编译下
hds8229830 2008-08-30
  • 打赏
  • 举报
回复
知道问题了,内存没有释放掉,谢谢各位了
sanmao136 2008-08-30
  • 打赏
  • 举报
回复
在开发环境下,出现-1,应该跟代码有关系
如果编译了出现-1.则编译成pbd发布,或者在pbr文件中包含d_flow_calcdirect
AFIC 2008-08-29
  • 打赏
  • 举报
回复
编译的时候,把所有pbl都够上发布成pbd就好了。
jlwei888 2008-08-29
  • 打赏
  • 举报
回复
注意一下,你输入的参数和程序中的变量是否一致
jlwei888 2008-08-29
  • 打赏
  • 举报
回复
-1就是有错误了!
那几个参数有问题了!你在pb打开d_flow_calcdirect,把参数手工输入试试知道了
当数据存在主次表时,当更新了次表数据后,主表数据在后台有更变时。可利用刷新主表当前行的方法重显主表数据。 /************************************************************ 函数名称: f_refresh_currentrow(adw) 功 能: 刷新DW当前行数据,不可刷新NO update or 带arguments的DW 参数说明: adw 目标DW 返 回 值: integer 成功返回1,失败返回-1 作 者: sean 创建时间: 2010年8月18日 ************************************************************/ string ls_dataobject string ls_keys[] //key Column Name string ls_dbname[] //key field Name string ls_coltype[] //field style string ls_tablenm //table name string ls_condition //sql Condition long ll_currentrow //Current Row numeric long ll_column //Column count integer i datawindow ldw datastore ldatastore ldw=adw if ldw.rowcount( )=0 then return -1 elseif trim(ldw.describe( "datawindow.table.arguments"))<>'?' then messagebox('','刷新数据窗口当前行失败!,数据窗口需要参数',exclamation!) return -1 else ll_currentrow=ldw.getrow( ) FOR ll_column = 1 TO long(ldw.object.datawindow.column.count)//key names If ldw.Describe("#"+string(ll_column)+".key") ='yes' Then i++ ls_keys[i]=ldw.Describe("#"+string(ll_column)+".name") ls_dbname[i]=ldw.Describe("#"+string(ll_column)+".dbname") ls_coltype[i]=ldw.Describe("#"+string(ll_column)+".coltype") End If NEXT if upperbound(ls_keys[])=0 then messagebox('','刷新数据窗口当前行失败!,没有主键',exclamation!) return -1 else ls_tablenm=left(ls_dbname[1],pos(ls_dbname[1],'.') -1) //table name for i=1 to upperbound(ls_keys[]) if pos('numb,deci,long,',LeftA(ls_coltype[i],4) +',')>0 then ls_condition+="and "+ls_dbname[i]+"="+string(f_getitem(ldw,ll_currentrow,ls_keys[i])) else ls_condition+="and "+ls_dbname[i]+"='"+string(f_getitem(ldw,ll_currentrow,ls_keys[i]))+"'" end if next ls_condition=mid(ls_condition,4) //sql Condition ldatastore=create datastore ldatastore.dataobject=ldw.dataobject ldatastore.settransobject( sqlca) if f_addwhere_retrieve(ldatastore,ls_condition)=1 then if ldatastore.rowcount( )=1 then ldw.object.data[ll_currentrow]=ldatastore.object.data[1] ldw.setitemstatus( ll_currentrow, 0, primary!, NotModified!) //if ldw.getrow( )<>ll_currentrow then ldw.scrolltorow( ll_currentrow) end if else messagebox('','刷新数据窗口当前行失败!,条件语法错误',exclamation!) return -1 end if destroy ldatastore end if end if

609

社区成员

发帖
与我相关
我的任务
社区描述
PowerBuilder DataWindow
社区管理员
  • DataWindow社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧