在查询的时候就用一个distinct去掉重复值!

string addybh
declare petor cursor for //设置游标名petor
select "cpy"."ybh" //cpy是表名.ybh要列名
from "cpy"
order by "cpy"."ybh" desc; //排列顺序
ddlb_ybh.reset() //ddlb_ybh为LISEBOX名
open petor; //打开游标
fetch petor into :addybh;
do while sqlca.sqlcode=0 //填入数据,若查询成功则继续
ddlb_ybh.insertitem(addybh,1)
ddlb_ybh.text=addybh
fetch petor into :addybh;
loop
close petor; //关闭油标号游标


distinct　　防在哪？／谢谢　我新手

是的，PB8.0参考手册是挺好用的！

declare cur cursor for
select UserName from yonghu;

open cur ;
fetch cur into :name;

ddlb_1.additem( name )
//end if
do while sqlca.sqlcode = 0
fetch next cur into :name;

ddlb_1.additem( name )

loop
close cur;

游标检索是很慢的,少量数据可以,数据量太大了一定会慢