Есть массив вида {{},{},{}} 
  
 поиск веду в первом элементе 
    do while !eof() 
 .. 
     if ascan(klnmas[1],{|fff| fff==nakl_r1->kod_kl})==0 
          skip 
          loop 
     endif 
 ....... 
 skip 
    enddo 
 медленновато что то или меня уже плющит.... 
 есть какой то другой аналог Ascan который пошустрее работает ? 
 Понятно что вот так быстрее будет 
     if ascan(klnmas[1],nakl_r1->kod_k)==0 
          skip 
          loop 
     endif 
  
  
 RDD скипает быстрее чем работает Ascan с блоком кода.... 
 

 
 dbeval( {|| hmas[recno()]:={kod_kl,nomer}}) 
  
 ? len(hmas) // 700000 ключей 
  
 fmas:={} 
 nsec:=seconds() 
 hb_hEval( hmas, {|key,sval,ind| if(sval[1]==5,aadd(fmas,key),)}) 
 ? (seconds()-nsec)*1000 // 594 mc 
  
  
 fmas:={} 
 nsec:=seconds() 
          for each v in hmas 
           if v:__enumValue()[1]==5 
 aadd(fmas,v:__enumKey()) 
           endif 
          next 
 ? (seconds()-nsec)*1000 // 437 mc тут побыстрее будет 
  
 

 
    if len(hmas)<4096 
    
     else 
      
    endif 
 

 
 func XbmFilter(nseaord,xsea,myblock) 
 local ret:=.t. 
 local old_ord:=indexord() 
 local old_rec:=recno() 
 local afilt:={} 
 default myblock to nil 
   
 dbclearfilter() 
  
 dbsetorder(nseaord) 
   if dbseek(xsea) 
     dbOrderInfo(DBOI_SCOPEBOTTOM,,, xsea)  
     dbeval({|| aadd(afilt,recno())},myblock,,,,.t.) 
     dbOrderInfo(DBOI_SCOPEBOTTOMCLEAR)  
   endif 
 dbsetorder(old_ord) 
       
      if len(afilt)>0 
 BM_DBSETFILTERARRAY(afilt) 
 go top 
      else 
 ret:=.f. 
 dbgoto(old_rec) 
      endif 
 return ret