DBF.CurRecord
| CurRecord (Индекс текущей записи) | |||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| |||||||||||||
Получает индекс текущей открытой записи. Если запись новая, атрибут возвращает -1, если позиционирование на запись не производилось, атрибут возвращает 0. Для изменения индекса текущей записи, используйте функцию Goto.
Синтаксис
DBF.CurRecord:<Индекс текущей записи (INT)>
Возвращаемое значение
Возвращает числовое значение.
Примеры
ПостИмяОст:="Остатки на "+FormatDate(КонДата,"YYYY-mm-dd")+".dbf";
бРезОст:=dbf.Create();
бРезОст.FileName:=Каталог+ПостИмяОст;
бРезОст.Codepage:=1251;
бРезОст.AddField(,"dDate","DATE");
бРезОст.AddField(,"cItemName","STRING.250");
бРезОст.AddField(,"nQty","NUMBER.15.0");
...
//Функция выводит 0
Message(бРезОст.CurRecord);
З:=Query.Create();
З.Execute(ТЗ);
While З.Next(1) Do
While З.Next(2) Do
зКл:=З.зКлКО;
If зКл<=0 Then
Continue;
EndIf;
зН:=З.зН;
бРезОст.AddRecord(,"dDate,cItemName,nQty",З.День,зН.ПолнНаименование,зКл);
//Функция выводит -1
Message(бРезОст.CurRecord);
EndDo;
EndDo;
бРезОст.Save();
//Функция выводит индекс, совпадающий с общим количеством записей в таблице
Message(бРезОст.CurRecord);
бРезОст.Close();