Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.10.30;
Скачать: CL | DM;

Вниз

Фильтрация таблицы DBF   Найти похожие ветки 

 
810   (2005-09-17 19:02) [0]

Есть таблица DBF (tblScan), в ней поле TIME_PP (типа Date). Есть глобальная переменная DATE_RAB в которой содержится дата. Задача - фильтровать в ран-тайме таблицу в зависимости от значения переменной.

procedure TfmMain.tblScanFilterRecord(DataSet: TDataSet;
 var Accept: Boolean);
begin
   Accept := DataSet["TIME_PP"] = DATE_RAB;
end;

Фильтрую таблицу по TfmMain.OnShow

      fmMain.tblScan.Filtered:=True;

И фильтр применяется нормально.
Но при изменении значения DATE_RAB никак не могу добиться, чтобы фильтр таблицы переназначился. Пробовал: Filtered:=False потом Filtered:=True (не помогает)
tblScan.Refresh (не помогает)

Помогает только закрытие и открытие таблицы с последующим Filtered:=True, а без закрытия/открытия как-нить возможно применить новый фильтр?

ЗЫ: в книжках ничего подобного нет, приходится методом научного самотыка......... Звиняйте.


 
Anatoly Podgoretsky ©   (2005-09-17 19:13) [1]

fmMain.tblScan.Filtered:=False;
fmMain.tblScan.Filtered:=True;
можно еще добавить First, а можно и вместо.


 
810   (2005-09-18 04:54) [2]

Accept := DataSet["TIME_PP"] = DATE_RAB;
-------------------------------------------------------

А как в ран-тайме можно поменять это условие?

Точнее: Как синтаксически правильно вызвать процедуру TfmMain.tblScanFilterRecord(DataSet: TDataSet; var Accept: Boolean);

Допустим, если я хочу добавить к существуюшему условию  условие DataSet["Summa"]>0


 
Anatoly Podgoretsky ©   (2005-09-18 13:17) [3]

Дельфи не интерпритатор



Страницы: 1 вся ветка

Текущий архив: 2005.10.30;
Скачать: CL | DM;

Наверх




Память: 0.44 MB
Время: 0.093 c
14-1129089827
КаПиБаРа
2005-10-12 08:03
2005.10.30
Жизненая пила


5-1105951532
Siargey
2005-01-17 11:45
2005.10.30
Нестандартный редактор компонента и перенос данных из него


1-1128924102
apellido
2005-10-10 10:01
2005.10.30
Почему не вижу на экране динамически созданные кнопки, метки...


14-1129017796
pazitron_brain
2005-10-11 12:03
2005.10.30
Как сделать ICQ?


14-1128580186
Мазут Береговой
2005-10-06 10:29
2005.10.30
Сделал открытие века! Такой вот я непоседа!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский