动态查询与查询分析器的查找替换

string stockname,Sql
int i
this.reset( )
SQL = "Select p_partno from p_partno where  p_bs = '1' group by p_partno order by p_partno "
declare my1 dynamic cursor for sqlsa;
prepare sqlsa from :Sql;
open my1;
fetch my1 into:stockname;
do while sqlca.sqlcode = 0
	stockname = trim(stockname)
	additem( stockname ) 
	fetch my1 into:stockname;
loop
close my1;
additem( "" )