v7: как найти значение в dbf
☑
0
work92
03.02.14
✎
13:32
Всем Прив….Может кто подскажет как найти значение в dbf
Структуры файла
Q W
1 565
2 6666
3 7779
187 4554
Файл = создатьОбъект("XBASE");
Таб=СоздатьОбъект("Таблица");
Таб.Исходнаятаблица("Таблица");
Файл.ОткрытьФайл("D:\catalog.dbf");
Таб.ВывестиСекцию("ЗГ");
Сцена=0;
Скол=0;
Ссум=0;
Файл.Первая();
Пока Файл.ВКонце()=0 Цикл
Если Файл.Q=СокрЛП("187")Тогда
Сообщить ("бла-бла"+Файл.W) ;
Иначе
Сообщить ("не найден")
КонецЕсли;
Файл.Следующая();
КонецЦикла;
Таб.вывестисекцию("Строка") ;
Таб.Показать();
КонецПроцедуры
1
m-serg74
03.02.14
✎
13:37
(0) /СокрЛП("187")/
твердая пятерка
2
КонецЦикла
03.02.14
✎
13:37
Если СокрЛП(Файл.Q)="187"
А вообще можно по-другому перебирать, а еще можно запросом
3
work92
03.02.14
✎
13:40
По-другому типа (НАЙТИ)
4
work92
03.02.14
✎
13:42
СП
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший