Имя: Пароль:
1C
1C 7.7
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
СП