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

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( "" )