[Bethryyyl]

Есть форма:
Безымянный.png

Подсчитал количество строк в 1-ой таблице вот так:

Код:

DataModule1.AdoQuery1.Close;
DataModule1.AdoQuery1.SQL.Text := 'SELECT * FROM Дома';
DataModule1.AdoQuery1.Open;
Label2.Caption :=IntToStr( DataModule1.ADOQuery1.RecordCount);

Вторая таблица (Квартиры в доме) - это побочная таблица 1-ой. (Master Source). Данные в ней меняются в соответствии с выбранной ячейкой в 1-ой таблице. Как сделать подсчет строк во 2-ой таблице так, чтобы он менялся в соответствии с выбранной ячейкой в 1-ой таблице ?

[NumLock]

select count(1) колво from квартиры where дом=:дом

[Страдалецъ]

А не надо вам ничего считать дополнительно. У вас эти данные уже есть, их тем же методом RecordCount можно получить напрямую из датасета для каждого из гридов.

[Bethryyyl]

Сообщение от Страдалецъ

А не надо вам ничего считать дополнительно. У вас эти данные уже есть, их тем же методом RecordCount можно получить напрямую из датасета для каждого из гридов.

Можешь расписать как это сделать ?

[NumLock]

cxGrid вообще сам умеет все подсчитывать

[Страдалецъ]

Примерно так:

Код:

DBGrid2.DataSource.DataSet.RecordCount

[Bethryyyl]

Сообщение от Страдалецъ

Примерно так:

Код:

DBGrid2.DataSource.DataSet.RecordCount

Ну так это будет считывать количество всхе записей.

[Страдалецъ]

Верно, но вы ведь сами сказали, что:

Вторая таблица (Квартиры в доме) - это побочная таблица 1-ой. (Master Source). Данные в ней меняются в соответствии с выбранной ячейкой в 1-ой таблице. Как сделать подсчет строк во 2-ой таблице так, чтобы он менялся в соответствии с выбранной ячейкой в 1-ой таблице ?

Из этого я делаю вывод, что у вас есть связь Мастер(Дом) - Деталь(квартиры) а раз так, то деталь будет всегда возвращать количество квартир для выбранного дома, что и требуется

[Bethryyyl]

Сообщение от Страдалецъ

Верно, но вы ведь сами сказали, что:

Ну так надо чтобы количество строк в label'e тоже изменялось.

Код:

DBGrid2.DataSource.DataSet.RecordCount

Так просто считывается количество строк таблицы полностью.

[Страдалецъ]

Вы такое хотите?

Код:

procedure TForm32.ClientDataSet1AfterScroll(DataSet: TDataSet);
begin
 Label1.Caption := IntToStr(DBGrid2.DataSource.DataSet.RecordCount);
end;

[Bethryyyl]

Сообщение от Страдалецъ

Вы такое хотите?

Код:

procedure TForm32.ClientDataSet1AfterScroll(DataSet: TDataSet);
begin
 Label1.Caption := IntToStr(DBGrid2.DataSource.DataSet.RecordCount);
end;

Все работает, только выдает ошибку.
Безымянный.png

[Bethryyyl]

Через событие CellClick у DBGrid все работает.

[Страдалецъ]

Сообщение от Bethryyyl

Все работает, только выдает ошибку.
Вложение 4536

А вы в отладчике посмотрите, что у вас в DataSet при AV хранится

[Admin]

Сообщение от Bethryyyl

...

Случайно удалил твои прошлые темы при объединении.
На будущее: мелкие вопросы лучше обсуждать в одном топике, нежели создавать кучу ниочемных тем.