怎么得到返回值呢？
在w_userid_add上有空件cb_registry(注册键）点击时就打开w_userid_add_insert
是为注册一个userid子段用的，
而我想它返回时，能把刚注册一个userid子段返回到w_userid_add中ddlb_userid上
ddlb_userid是外挂在w_userid_add.dw_1上，
哪位大侠给我代码我用高分收购：我会给你连续加几次分，
问题点数：20、回复次数：5Top
1 楼wook（坤仔）回复于 2001-06-26 16:58:29 得分 0
你需要的是取得w_userid_add_insert窗口的返回值，还是如何将返回值插入ddlb_userid中？Top
2 楼szjlq（如果问题继续存在，请与供应商联系）回复于 2001-06-26 17:01:46 得分 20
将w_userid_add_insert的窗口类型做成:response!
用CloseWithReturn(w_userid_add_insert,ls_userid)来关闭w_userid_add_insert
ls_userid是你取到的刚输入的用户名.
cb_registry的代码:
open(w_userid_add_insert)
if len(message.stringparm)>0 then
ddlb_userid.additem(message.stringparm)
end ifTop
3 楼wook（坤仔）回复于 2001-06-26 17:03:49 得分 0
cb_registry代码：
DataWindowChild field_child
string ll_userid
long ll_ins_row
open(w_userid_add_insert)
ll_userid=message.stringparm
dw_1.GetChild("userid",field_child)
field_child.SetTransObject(SQLCA)
ll_ins_row=field_child.insertrow(0)
field_child.setitem(ll_ins_row,"userid",ll_userid)
w_userid_add_insert的返回按钮代码：
closewithreturn(parentwindow,em_1.text)
Top
4 楼xingjiaren（Sandy）回复于 2001-06-26 17:10:35 得分 0
我程序中的代码，字段你凑和看
declare lcur_ks cursor for
select ks from yyks where zyks=1 ;
open lcur_ks;
if sqlca.sqlcode<0 then
messagebox("database error!",sqlca.sqlerrtext,exclamation!)
return
end if
ddlb_1.setredraw(false)
do while sqlca.sqlcode=0
fetch lcur_ks into :ls_select;
if sqlca.sqlcode=0 then
ddlb_1.additem(ls_select)
elseif sqlca.sqlcode<0 then
messagebox("database error!",sqlca.sqlerrtext,exclamation!)
return
else
exit
end if
loop
ddlb_1.setredraw(true)
close lcur_ks;
Top
5 楼chanwenbiao（cwb）回复于 2001-06-26 17:32:42 得分 0
好我来试试！Top
