|
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
|
СП
|
|