DETAIL_ADODataSet.IsEmpty

← →
Silver_ © (2003-07-04 17:41) [0]

Как узнать что MASTER_ADODataSet не имеет связей в DETAIL_ADODataSet

DETAIL_ADODataSet.IsEmpty не катит

Можно конечно через запрос узнать. Но зачем запрос строить если и так имеем подчиненые записи, надо тока узнать они есть или нет, но как :о)

← →
Silver_ © (2003-07-04 18:12) [1]

Я чет не пойму че нельзя узнать
- Есть / нет подчиненных записей
- Количество подчиненых записей

Мастаки ну где вы тама Ау-у-у-у-у-у!!!!!

← →
Silver_ © (2003-07-07 11:10) [2]

Мастаки уже понедельник. Все дружно просыпаемся и отвечаем на етот пост :о). Заранее спасибочки.

← →
Silver_ © (2003-07-07 12:12) [3]

Не могу поверить что Борланды допустили такое упущение. Или это просто я не в курсе :о(

ЗЫ. Мастаки не налетайте все сразу на этот пост, не успеваю ответы читать :о)

← →
Johnmen © (2003-07-07 12:45) [4]

Если все правильно проставлено и определено, то
DETAIL_ADODataSet.RecordCount

← →
Silver_ © (2003-07-07 15:17) [5]

> DETAIL_ADODataSet.RecordCount

Всё время выдает одно и то-же значение 31 в не зависимости от того есть там записи или нет, причем в самой таблице (без связи с главной таблицей) СОТНИ(!) записей

← →
Johnmen © (2003-07-07 15:34) [6]

DETAIL_ADODataSet.Last;
DETAIL_ADODataSet.RecordCount;

← →
Silver_ © (2003-07-07 16:15) [7]

> Johnmen © (07.07.03 15:34)
> DETAIL_ADODataSet.Last;>
DETAIL_ADODataSet.RecordCount;

Тот же бордель получаю !!!

КАК Лечить ?????

← →
Семен Сорокин © (2003-07-07 16:23) [8]

> Семен Сорокин © (07.07.03 16:23)
> Silver_ © (07.07.03 16:15)
> проверь связь, наверняка разрыв

Поясните а то не пойму :о)

Странно что ответов нет. Не могу поверить что нельзя узнать такую инфу у подробной таблици :о(((((((((((((((((((

Пришел извеняться !!!!!
Делал так, Листаю все НД определяю тех кому DataSet является мастером
function GetNotEmptyDetailDataSet(Connection: TADOConnection; DataSet: TDataSet): TDataSet; var i: integer; begin Result:=nil; for i:=0 to Connection.DataSetCount-1 do begin with TADODataSet(Connection.DataSets[i]) do if DataSource <> nil then if DataSource.DataSet = DataSet then if (not DataSource.DataSet.Active) or (not ( DataSource.DataSet.IsEmpty)) then begin Result:= DataSource.DataSet; Break; end; end; end;

а надо боло так

function GetNotEmptyDetailDataSet(Connection: TADOConnection; DataSet: TDataSet): TDataSet; var i: integer; begin Result:=nil; for i:=0 to Connection.DataSetCount-1 do begin MainForm.MainProgressBar.Position:=i; with TADODataSet(Connection.DataSets[i]) do if DataSource <> nil then if DataSource.DataSet = DataSet then if (not TADODataSet(Connection.DataSets[i]).Active) or (not ( TADODataSet(Connection.DataSets[i]).IsEmpty)) then begin Result:= TADODataSet(Connection.DataSets[i]); Break; end; end; end;

Не туды обращался. Трассировкой не получалось посмотреть :о(
обнаружил когда поставил DataSource.DataSet.First и увидел кто откликнулся так все и понял.

> Silver_ © (07.07.03 12:12)
> Не могу поверить что Борланды допустили такое упущение.
> Или это просто я не в курсе :о(

Отдельное извинение перед Борландами, Хорошие парни! :о)

DETAIL_ADODataSet.IsEmpty Найти похожие ветки