Форум: "Базы";
Текущий архив: 2002.07.08;
Скачать: [xml.tar.bz2];
ВнизПри переходе с Paradox таблица на DBF таблицу программа ругается Найти похожие ветки
← →
Мефодий (2002-06-13 20:58) [0]В программе есть TTable, который использую для промежуточных файлов типа DBF(нужно для создания специальных индексов) или Paradox (без индексов дает возможность нормального скроллинга в DBGrid EhLib). Cоздав DBF таблицу:
with DM.Table1 do
begin
Close;
TableType := ttDBase;
TableName := "A1";
with FieldDefs do
begin
Clear;
Add("Field1",ftInteger, 0,False);
Add("Field2",ftDate, 0,False);
...
end;
with IndexDefs do
begin
Clear;
Add("Date","Dtos(Field2)",[ixExpression]);
end;
CreateTable;
Open;
IndexName := "Date";
с индексом (под названием "Date") заканчиваю с ней работу командами
Table1.Close;
Table1.DeleteTable;
В другом месте программы создаю уже Paradox таблицу:
with DM.Table1 do
begin
Close;
TableType := ttParadox;
TableName := "A2";
with FieldDefs do
begin
Clear;
Add("Field1",ftString, 10,False);
Add("Field2",ftInteger, 0,False);
...
end;
IndexDefs.Clear;
CreateTable;
Open;
Проблема в том, что в строке Open возникает ошибка:
Index "Date" not found.
О каком индексе идет речь ? Ведь я закрыл файл и уничтожил его. А перед CreateTable почистил индекы (IndexDefs.Clear).
Что только не пробовал, ничего не помогает.
Может кто встречался с подобной проблемой ?
Спасибо.
← →
vads (2002-06-14 13:50) [1]Все правильно, индекса уже нет ни в "природе" ни в IndexDefs,
а IndexName у тебя все равно равен "Date", вот он его и пытается найти, те IndexName := ""
← →
Мефодий (2002-06-14 17:07) [2]Спасибо. Сработало.
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.07.08;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.005 c