DECLARE  number  CURSOR FOR  
  SELECT  "商品大类.商品大类编码"   
    FROM "商品大类"
open number ;
string number_name
fetch number  into :number_name;
do while SQLCA.SQLCODE=0    
    //sel_3.additem(number_name)    
    if sle_3.text=number_name then
    messagebox("提示该商品编码已用","请输入另外的编码!");
   elseif number_name<>sle_3.text then
    fetch number  into :number_name;
end if
loop
close number ;
其中sle_3.text是商品大类编码的那个输入框，
可结果就是可以重编码，为什么啊？
哪位大哥赐教啊！