Навигация по набору записей

Команды dbMove, dbMoveFirst, dbMoveLast, dbMoveNext, dbMovePrevious осуществляют перемещение по набору записей, т.е. смену текущей записи в наборе. Если набор пуст, то любая из этих команд вызовет ошибку, завершающую работу макрокоманды. Если набор находится в состоянии BOF (begin of file), ошибку вызовет перемещение вверх. Если набор находится в состоянии EOF (end of file), ошибку вызовет перемещение вниз.

dbMove <ID> <Num> <Bmk>

Команда осуществляет перемещение по набору записей с идентификатором <ID>. Параметр <Num> задает количество записей, на которое следует переместиться.

Если <Num> больше нуля - перемещение осуществляется вниз по набору записей. Если <Num> больше, чем количество записей находящихся ниже в наборе записей, то набор переходит в состояние EOF.

Если <Num> меньше нуля - перемещение осуществляется вверх по набору записей. Если абсолютное значение <Num> больше, чем количество записей находящихся выше в наборе записей, то набор переходит в состояние BOF.

Параметр <Bmk> - закладка записи, от которой осуществляется перемещение. Если <Bmk> равен нулю, перемещение будет осуществляться от текущей записи.

dbMoveFirst <ID>

Команда осуществляет переход к первой записи набора записей с идентификатором <ID>.

dbMoveLast <ID>

Команда осуществляет переход к последней записи набора записей с идентификатором <ID>.

dbMoveNext <ID>

Команда осуществляет переход к следующей за текущей записи набора записей с идентификатором <ID>.

dbMovePrevious <ID>

Команда осуществляет переход к записи набора записей с идентификатором <ID>, предшествующей текущей.

Пример:

DbOpen id, "a.dbf";
If (DbRecCount(id)==0)  //Набор пуст, закрываем и выходим
{
  goto metend;
}

// Просмотр набора вниз
DbMoveFirst id;                  // Встали на первую запись
bm=0;
i=1;
met1:
If (!DbEOF(id)) // Пока не прошли все записи
{
  If i==5 // Для 5-й записи запоминаем закладку
  { 
    bm=DbBookmark(id);
  }  
  DbMoveNext id;                 // Переход на следующую вниз
  i=i+1;
  Goto met1;
}

// Просмотр набора вверх
DbMoveLast id;         // Встали на последнюю  запись
met2:
If (!DbBOF(id)) // Пока не прошли все записи
{        
  DbMovePrevious id;   // Переход на следующую вверх
  Goto met2;
}
// Быстрый возврат к пятой записи, если она была
if bm!=0  // Сдвиг на 0 от записи с закладкой bm
{ 
  DbMove 0, bm;
} 
// Сдвиг вниз от текущей записи на 3 записи
DbMove 3, 0;
// Сдвиг вверх от текущей записи на 3 записи
DbMove -3, 0;
metend:
DbClose id;        // Закрываем набор