IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Ошибка при раюоте с индексными полями, Paradox
сообщение
Сообщение #1


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Господа выручайте срочно ... mega_chok.gif

Пытаюсь отфильтровать записи таблицы по диапазону юзая SetRange по 2 полям, вот таким образом:

procedure TfrmOrder.BitBtn1Click(Sender: TObject);
begin

with frmMain.tblOrder do begin

IndexName := 'indOrder_WD'; // построен по полям Order_Date и Order_WorkerCode

SetRangeStart;
FieldByName('Order_Date').AsDateTime := DTPedtStart.Date;
if cmbBxWorkerCode.ItemIndex > 0 then
FieldByName('Order_WorkerCode').AsInteger := StrToInt(cmbBxWorkerCode.Items[cmbBxWorkerCode.ItemIndex]);
SetRangeEnd;
FieldByName('Order_Date').AsDateTime := DTPedtFinal.Date;
ApplyRange;

// ...



Загвоздка находится вот в этой строчке :

IndexName := 'indOrder_WD;


Я в setrangestart/setrangeend работаю с 2 полями, соответсвенно оба эти поля должны быть индексированы и выставлены как текущий индекс. Оба эти поля индексированы сам по себе, + я сделал для инх общий индекс (который посроен по 2 этим полям Order_Date и Order_WorkerCode)

Значит поехали

Если я пишу

IndexFieldNames := 'Order_Date; Order_WorkerCode';

То мне заявляют для для этих полей индекса нет, хотя он есть (indOrder_WD)

Если я пишу

IndexName := 'indOrder_WD';

indOrder_WD - индекс построеный по полям Order_Date и Order_WorkerCode

Так вот если установить этот индекс текущим, то мне говорят что одно из этих полей не индексировано в зависимости от того как они располагаются в индексе (пробовал и так и так)

Что-же происходит ?!!


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Вопрос закрыт.


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 23.10.2020 6:31
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name