pb 数据窗口 column dropdownlist 动态添加元素 item

//article_name:列名

//editchaned事件

//article:商品字典

string ls_rtn,ls_data,ls_modify
string ls_name,ls_aid
if dwo.name='article_name' then
 ls_data='%'+data+'%'
 ls_modify="article_name.values='"
 declare cur_art cursor for
  select aid,article_name from article where article_name like :ls_data;
 open cur_art;
 fetch cur_art into :ls_aid,:ls_name;
 do while sqlca.sqlcode=0
  ls_modify=ls_modify + ls_name+" "+ls_aid+"/"
  fetch cur_art into :ls_aid,:ls_name;
 loop
 close cur_art;
 ls_modify=ls_modify+"'"
 ls_rtn=this.modify(ls_modify)
end if

转载于:https://www.cnblogs.com/kuailewangzi1212/archive/2010/09/27/1836444.html