pb游标

Declare cur_k0 Cursor For Select distinct s_code From dbo.his_ypk_use ;
Open cur_k0;
Fetch cur_k0 Into :ls_code;
Do Until sqlca.SQLCode = 100 Or sqlca.SQLCode = -1
ddlb_2.AddItem(ls_code)
Fetch cur_k0 Into :ls_code;
Loop
Close cur_k0;

do while为当条件成立时执行循环语言 
do until为当条件不成立时执行循环语言