Такблица paradox. Записи сортируются, но система не хочет реагировать на указания связанные с направлением сортировки, всегда сортирует по возрастанию, почему ?
procedure TfrmStore.Button1Click(Sender: TObject);
beginwith frmMain.tblStore dobeginif rdBtnByOperationNumber.Checked then
IndexName := ''elseif rdBtnByDate.Checked then
IndexName := 'indSDate'elseif rdBtnByGoodsCode.Checked then
IndexName := 'indSGoodsCode'elsebegin
MessageDlg('Необходимо выбрать поле сортировки', mtInformation, [mbOk], 0);
Abort;
end;
if chkBxDesc.Checked then// <<-------------- Направление должно зависеть от чекбокса ...
IndexDefs[IndexDefs.IndexOf(IndexName)].Options :=
IndexDefs[IndexDefs.IndexOf(IndexName)].Options + [ixDescending]
else
IndexDefs[IndexDefs.IndexOf(IndexName)].Options :=
IndexDefs[IndexDefs.IndexOf(IndexName)].Options - [ixDescending]
end;
end;
volvo
16.11.2006 23:15
Цитата
всегда сортирует по возрастанию, почему ?
Потому, что параметры из IndexDefs - используются только при СОЗДАНИИ таблицы...
klem4
16.11.2006 23:30
А как можно поступить в такой ситуации ? В учебнике смотрю, там автор делает также, изменяет эти опции в рантайме ... Странно.
volvo
17.11.2006 0:05
Цитата
А как можно поступить в такой ситуации ?
AddIndex ?
Haliam-Baliam
26.05.2007 10:17
У меня почти такой же вопрос. Параметр ixDescending воспринимается как неописанный идентификеатор. Я его пробывал задавать при создании таблицы (DatabaseDesktop) и уже из под Дельфи в свойствах компонента Ttable для каждого индекса. Помогите, пожалуйста!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.