Есть ли функция,которая определяет номер строки, но не текущей,а каждой.REcno()- не подходит. Нужно для условия при выгрузке. Хотелось бы заменить в условии For x<Cenn_Szh.npp<(x+65533) Cenn_Szh.npp - на функцию определяющую номер.

If a>65534 Then
   *разбиваем на пачки и выгружаем по пачкам в excel
   *  определеям количество пачек - округляем до целого в большую сторону
   kol_pah=a/65533
   ost=a%65533 && остаток от деления
   If ost<>0 Then
       kol_pah=kol_pah+1
   Endif
   x=1 && номер строки с которой начинается отсчет новой пачки
   For i=1 To kol_pah Step 1
       Select Cenn_Szh
       Copy To (put+"Itog\ЦЕННИК_С_НАИМЕНОВАНИЯМИ_ГР_ОГТ_ПОЛНЫЙ_"+STR(i)) Fields shifrm,nm, tr,gr,mr,Go,ei,ng,Naim_GR_OG,gm,shifr_si,nk,kol_f Type Xls For x<Cenn_Szh.npp<(x+65533)
       x=x+65533
   Endfor
   *Copy To (put+"Itog\ЦЕННИК_С_НАИМЕНОВАНИЯМИ_ГР_ОГТ_ПОЛНЫЙ") fields shifrm,nm, tr,gr,mr,go,ei,ng,naim_GR_OG,gm,shifr_si,nk,kol_f Type Sdf
Else
   Copy To (put+"Itog\ЦЕННИК_С_НАИМЕНОВАНИЯМИ_ГР_ОГТ_ПОЛНЫЙ") Fields shifrm,nm, tr,gr,mr,Go,ei,ng,Naim_GR_OG,gm,shifr_si,nk,kol_f Type Xls
Endif

Или как задать в добавленной колонке тип автоматический счетчик?
Alter  Table (put+"Cenn_Szh.dbf") Add  Column npp N(8)
Просто через  Scan его заполняю-количество записей почти 190тыс,работает медленно. Очень медленно.
n=0
   SCAN
       Replace npp WITH n+1
       n=n+1
   endscan