Метод ТИП_SQL.ПЕРЕЙТИ
Метод ПЕРЕЙТИ перемещает указатель на запись с указанным номером от начала таблицы.
ФУНКЦИЯ ПЕРЕЙТИ(ТИП_ЧИСЛО: номер_записи)
Параметры
- номер_записи
- Порядковый номер записи. Нумерация начинается с единицы.
Пример использования
строк = 16
файл = ДИР_DBF+"\T_Dolg.dbf"
СОЗДАТЬ ( бд, ТИП_SQL )
бд.ОТКРЫТЬ (файл)
ном = БД_РЕДАКТОР ( бд, НЕТ, НЕТ, НЕТ )
ВЫВЕСТИ ( 25, 4, "Таблица задолженностей", ДА )
ВСТАВИТЬ_РАМКУ ( 1, нач_табл, 51, 1, 2);
ВЫВЕСТИ (16, нач_табл, "Наименование товара")
ВСТАВИТЬ_РАМКУ (52, нач_табл, 11, 1, 2);
ВЫВЕСТИ (53, нач_табл, "Количество")
ЦИКЛ ДЛЯ (и=1, строк)
бд.ПЕРЕЙТИ (ном+и-1)
бд.СЧИТАТЬ
наим!и = бд.ПОЛЕ ("x_Name")
кол!и = бд.ПОЛЕ ("x_Num")
ВСТАВИТЬ_РАМКУ ( 1, и+нач_табл, 51, 1, 2);
ВЫВЕСТИ ( 2, и+нач_табл, наим!и, 50)
ВСТАВИТЬ_РАМКУ (52, и+нач_табл, 11, 1, 2);
ВЫВЕСТИ (53, и+нач_табл, кол!и, 10, 0)
КОНЕЦ_ЦИКЛА
бд.ЗАКРЫТЬ