Проверка датасета на наличие записей

Ormuz · January 2017

Приветствую.
Использую следующий код:

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 выводит все подряд. Толком в циклах не разбираюсь и не могу нагуглить: как проверить Датасет на наличие записей и по итогу вывести сообщение.
Спасибо.

Ormuz · January 2017

Решил сам. Если кому-то интересно: использовал оба кода

procedure DetailData1OnBeforePrint(Sender: TfrxComponent);
begin
  if <Request"GroupCode"> = 77 then
    begin                         
    DetailData1.Visible := True;
    end            
  else
    begin              
    DetailData1.Visible := False;  
    end;                
end;    
procedure frxReportOnStartReport(Sender: TfrxComponent);
var
  DS: TfrxDataSet;
  Text: string;
begin
  Text := '';
  DS := Report.GetDataSet('Request');
  DS.First;
  while not DS.Eof do
  begin
  if <Request"GroupCode"> = 77 then
  Text := Text + '1'                         
  else
    begin                                         
      Text := Text + ''
    end;              
  DS.Next;
  end;
  if Text = '' then
    begin                         
      Showmessage ('В данной заявке нет нужных данных');  
      Page1.Visible := False;
    end;                
end;

Буду рад увидеть предложения по улучшению кода, если он какой-то не такой

Проверка датасета на наличие записей

Комментарии

Оставить комментарий