![]() |
![]() |
![]() |
|
v7: Как правильно создать индексный файл? | ☑ | ||
---|---|---|---|---|
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 тогда прервать; конецесли; Файл.Следующая(); КонецЦикла; Файл.ЗакрытьФайл(); |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |