0
fredrf
02.09.13
✎
10:28
|
Всем привет. Не могу получить значение ключа,после создания индексного файла... вот код
//Открываю дбф файл для создания индексного cdx Файл.ОткрытьФайл("D:\1\новые\игорьБД\001_03_05_2013\bd\KzAccnt\DT10121.DBF",,0);
Файл.Добавитьиндекс("IDLS","SP10119",0,0,"");
Файл.СоздатьИндексныйФайл("D:\1\новые\игорьБД\001_03_05_2013\bd\KzAccnt\DT10121.CDX");
Файл.ЗакрытьФайл();
//открываю оба файла
Файл.ОткрытьФайл("D:\1\новые\игорьБД\001_03_05_2013\bd\KzAccnt\DT10121.DBF","D:\1\новые\игорьБД\001_03_05_2013\bd\KzAccnt\DT10121.CDX",1);
назв="";
//получаю в сообщении имена индексов, в данном случае одного
Для н=1 По Файл.КоличествоИндексов() Цикл
Файл.ОписаниеИндекса(н,назв,,,,);
сообщить(назв); // "IDLS"
КонецЦикла;
// вот так вот запись не находиться
Файл.ТекущийИндекс("IDLS"); // или так Файл.ТекущийИндекс("назв");
Если Файл.Найти("7S",0)=1 Тогда сообщить("Запись найдена!"); КонецЕсли;
//и так тоже ключ пустой
Файл.Первая(); кол=0;
Пока Файл.ВКонце()=0 Цикл
сообщить(Файл.Ключ.SP10119);
кол=кол+1; если кол=10 тогда прервать; конецесли;
Файл.Следующая();
КонецЦикла;
Файл.ЗакрытьФайл();
|
|