Add all Filds в Query

[-=pasha=-]

В самом Fastrepot ничего интересного нет. На форме расположены frxReport1,frxCrossObject1,frxDBDat aset1. В отчете 3 бэнда и кросс.
на frxReport1 написан обработчик на событие OnBeforePrint

procedure TForm12.frxReport1BeforePrint(Sender: TfrxReportComponent);
var
  Cross: TfrxCrossView;
  i, j: Integer;
begin
  //ADOQuery1id_fiz_lica.Visible:=False;
  if Sender is TfrxCrossView then
  begin
    Cross := TfrxCrossView(Sender);

    ADOQuery1.First;
    i := 0;
    while not ADOQuery1.Eof do
    begin
      for j := 0 to ADOQuery1.Fields.Count - 1 do
        Cross.AddValue([i], [ADOQuery1.Fields[j].DisplayLabel], [ADOQuery1.Fields[j].AsString]);

      ADOQuery1.Next;
      Inc(i);
    end;
  end;
end;

Код копирнул из демки фастрипортовской, тока чуток под себя переделал

[-=pasha=-]

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

Не совсем проблема понятна, псевдонимы для названий полей легко назначать в запросе или в TfrxDBDataset, что программно, что в дизайнере это особых пробем не вызывает.

в TfrxDBDataset псевдоним менял это ничего не дало.. Судя по всему из-за того что в OnBeforePrint все манипуляции производятся с ADOQuery

[vovk]

Cross.AddValue([i], [ADOQuery1.Fields[j].DisplayLabel], [ADOQuery1.Fields[j].AsString]);

И что мешает заранее заголовки столбцов переименовать? Всё равно тут ничего автоматически не сделается, заголовки на русском придётся гдето самому полям сопоставлять.

[-=pasha=-]

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

кстати, а если Вы добавляете руками в запрос одно поле. Потом CheckBox'ом выбираете только одно это поле - всё нормально работает? и название поля по русски в отчёте?!

Да так норм работает. А если другое поле отмечаю CheckBox'ом выпадает ошибка, типа не могу найти поле.. А если 2 поля отмечаю, то в отчет тянется только то, которое вручную занес

[Serge_Bliznykov]

vovk +1

вот в своём коде и переименовывайте как хотите!
Лучше, через таблицу переименований.
Пример решения с переименованием "В ЛОБ"

var sFieldName : string;
...
      for j := 0 to ADOQuery1.Fields.Count - 1 do begin
        sFieldName := ADOQuery1.Fields[j].DisplayLabel;
        if ADOQuery1.Fields[j].DisplayLabel = 'BBBBB' then sFieldName := 'Вес';
        if ADOQuery1.Fields[j].DisplayLabel = 'NAIM' then sFieldName := 'Наименование';
        if ADOQuery1.Fields[j].DisplayLabel = 'KOLVO' then sFieldName := 'Количество';
        Cross.AddValue([i], [sFieldName], [ADOQuery1.Fields[j].AsString]);
      end;

[-=pasha=-]

Спасибо за помощь. Получилось чего хотел.