Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.04.2011, 09:08   #1
Aleksandr
Форумчанин
 
Регистрация: 22.05.2007
Сообщений: 511
По умолчанию Проблема с фильтрацией в DbGridEh

Хочу сделать фильтрацию с использованием компонента DbGridEh без ADOQuery. Я поместил этот код в DBGrid2TitleBtnClick. Почему не сортируется?
Код:
For i:=0 to DbGrid2.Columns.Count-1 do begin
    DbGrid2.Columns[i].Title.TitleButton := TRUE;
      end;
  DbGrid2.OptionsEh := DbGrid2.OptionsEh + [dghAutoSortMarking];
  DbGrid2.OptionsEh := DbGrid2.OptionsEh + [dghMultiSortMarking];
Aleksandr вне форума Ответить с цитированием
Старый 25.04.2011, 11:46   #2
Gulik
Холост/Не замужем
Форумчанин
 
Аватар для Gulik
 
Регистрация: 13.11.2007
Сообщений: 283
По умолчанию

А модуль подключил? EhLibADO
Gulik вне форума Ответить с цитированием
Старый 25.04.2011, 12:01   #3
Aleksandr
Форумчанин
 
Регистрация: 22.05.2007
Сообщений: 511
По умолчанию

В том и проблема, что при установке компонента возникли ошибки и поэтому EhLibADO.dcu нет.
Aleksandr вне форума Ответить с цитированием
Старый 25.04.2011, 12:18   #4
Gulik
Холост/Не замужем
Форумчанин
 
Аватар для Gulik
 
Регистрация: 13.11.2007
Сообщений: 283
По умолчанию

он обязан быть как EhLibADO.pas ищи...
и проверь пути с установленным компонентам...
Tools -> Enviroment Options -> Library там думаю разберешься
Gulik вне форума Ответить с цитированием
Старый 25.04.2011, 12:32   #5
Gulik
Холост/Не замужем
Форумчанин
 
Аватар для Gulik
 
Регистрация: 13.11.2007
Сообщений: 283
По умолчанию

Цитата:
Сообщение от Myka Посмотреть сообщение
помогите ПОЖАЛУЙСТА написать программу
Для матрицы X размером M*N сформировать и вывести на экран вектор-столбец из средних значений элементов строк.
Если ты действительно хочешь чтобы тебе помогли создай Тему в разделе Общие вопросы
Gulik вне форума Ответить с цитированием
Старый 25.04.2011, 13:27   #6
Aleksandr
Форумчанин
 
Регистрация: 22.05.2007
Сообщений: 511
По умолчанию

EhLibADO.pas нашел. Компонент EhLib распакован в папку EhLib.
В Tools -> Enviroment Options -> Library -> Library Patch указал папку EhLib-Common
Файл EhLibADO.pas скопировал в папку EhLib-Common. Что я не так делаю?
Aleksandr вне форума Ответить с цитированием
Старый 25.04.2011, 19:36   #7
Gulik
Холост/Не замужем
Форумчанин
 
Аватар для Gulik
 
Регистрация: 13.11.2007
Сообщений: 283
По умолчанию

а в uses добавил EhLibADO?
Gulik вне форума Ответить с цитированием
Старый 26.04.2011, 11:27   #8
Aleksandr
Форумчанин
 
Регистрация: 22.05.2007
Сообщений: 511
По умолчанию

добавил EhLibADO в uses. Все равно не работает сортировка выдает TADOTable is not SQL based dataset
Aleksandr вне форума Ответить с цитированием
Старый 26.04.2011, 11:42   #9
Dark_Spirit
Форумчанин
 
Аватар для Dark_Spirit
 
Регистрация: 05.02.2009
Сообщений: 324
По умолчанию

Цитата:
Хочу сделать фильтрацию с использованием компонента DbGridEh без ADOQuery. Я поместил этот код в DBGrid2TitleBtnClick. Почему не сортируется?
Код:
Код:
For i:=0 to DbGrid2.Columns.Count-1 do begin
    DbGrid2.Columns[i].Title.TitleButton := TRUE;
      end;
я так думаю этот код нужно поместить, или в FormShow, или в DrawColumnCell
а вот это
Код:
  DbGrid2.OptionsEh := DbGrid2.OptionsEh + [dghAutoSortMarking];
  DbGrid2.OptionsEh := DbGrid2.OptionsEh + [dghMultiSortMarking];
можно ведь сразу задать в процессе проектировки
Тяжело быть бестолковым.....
Dark_Spirit вне форума Ответить с цитированием
Старый 26.04.2011, 11:51   #10
Aleksandr
Форумчанин
 
Регистрация: 22.05.2007
Сообщений: 511
По умолчанию

В EhLibADO останавливается на
Код:
procedure TADOCommandTextDatasetFeaturesEh.ApplySorting(Sender: TObject;
  DataSet: TDataSet; IsReopen: Boolean);
begin
  if Sender is TCustomDBGridEh then
    if TCustomDBGridEh(Sender).SortLocal then
      SortDataInADODataSet(TCustomDBGridEh(Sender), TCustomADODataSet(DataSet))
    else
      inherited ApplySorting(Sender, DataSet, IsReopen);
end;
И выдает ошибку TADOTable is not SQL based dataset
Aleksandr вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проблема с DbGridEh Aleksandr БД в Delphi 2 25.04.2011 09:13
Проблема с фильтрацией Kuraj БД в Delphi 4 29.06.2010 17:32
Жесть с фильтрацией grafgrial БД в Delphi 4 11.06.2010 09:27
Помогите с фильтрацией vr-frost БД в Delphi 4 29.04.2009 12:50
Пролемы с фильтрацией 1234 БД в Delphi 1 24.07.2008 11:28