Difference between revisions of "DBF.CurRecord"
m (1 revision imported) |
|
(No difference)
|
Latest revision as of 07:43, 7 February 2021
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();