Проверка датасета на наличие записей
Ormuz
Самара
Приветствую.
Использую следующий код:
Но мне еще необходимо следующее: если, вдруг, в датасете вообще нет нужных записей (нужные, у которых <Request."GroupCode"> = 77) , то выводить сообщение для пользователя об этом
Спасибо.
Использую следующий код:
procedure DetailData1OnBeforePrint(Sender: TfrxComponent);
begin
if <Request."GroupCode"> = 77 then
begin
DetailData1.Visible := True;
end
else
begin
//Showmessage ('В данной заявке нет нужных данных');
DetailData1.Visible := False;
end;
end;
Код отлично работает: если условие проходит, то он выводит нужные записи на печать, и наоборот.Но мне еще необходимо следующее: если, вдруг, в датасете вообще нет нужных записей (нужные, у которых <Request."GroupCode"> = 77) , то выводить сообщение для пользователя об этом
procedure frxReportOnStartReport(Sender: TfrxComponent);
var
DS: TfrxDataSet;
begin
DS := Report.GetDataSet('Request_SamplesContainers');
DS.First;
while not DS.Eof do
begin
showmessage (1);
if <Request."GroupCode"> <> 77 then
begin
Showmessage ('В данной заявке нет нужных данных');
DetailData1.Visible := False;
end
else
begin
Showmessage (3);
DetailData1.Visible := True;
end;
DS.Next;
end;
end;
Пытался реализовать так, но он не работает даже как предыдущий, в ДетайлДата1 выводит все подряд. Толком в циклах не разбираюсь и не могу нагуглить: как проверить Датасет на наличие записей и по итогу вывести сообщение.Спасибо.
Комментарии