fn = "ccl.dbf"; idx = "IDXCL.CDX"; path = "C:\1CBase\Выгрузки\"; FS.SelectFile(0, fn, path, , "*.*", , ); PathDB = Path + fn; PathIDX = Path + idx; dbf.AddField("a1", "S", 7, 0); dbf.AddField("a2", "S", 10, 0); dbf.AddField("a3", "N", 7, 0); dbf.AddIndex("IDXCL","a1+a2+a3", 1, 0, ""); //dbf.СоздатьИндексныйФайл("IDXCCL.CDX"); dbf.CreateFile(PathDB, PathIDX); // dbf.CloseFile(); dbf.OpenFile(PathDB,PathIDX); IF dbf.IsOpen() = 1 Then DoMessageBox("База открыта", 2); TableValues.SelectLines(); While TableValues.GetLine()=1 Do dbf.Add(); // Определяем поля новой записи dbf.a1= TableValues.a1; dbf.a2= TableValues.a2; dbf.a3 = TableValues.a3; dbf.Save(); EndDo; Иначе DoMessageBox("НЕ смогли открыть Базу!", 2); КонецЕсли; dbf.Переиндексировать(); endif; dbf.CloseFile(); |