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

К сожалению нет, Как я писал в начале, во втором QRDBtexte получаем только одну строку из результата запроса!
Какой в QuickReport.DataSet стоит, тот запрос нормально и обрабатывается.

Все правильно. Если уж вам приспичило делать два столбика стоящих рядом, и неустраивает мой вариант объединения, можно попробовать сделать вложенные отчеты:
- первый столбик - отчет1,
- второй столбик - отчет2,
а лежат оба столбика на отчете3.

[delphiman]

Что-то все чщетно.

В первом ДБедите запрос выводит все нормально, допустим 4 Элемента,
а во втором выводится тоже 4-е но одинаковых(значение первого элемента).

[delphiman]

Изврат конечно, но можно попробывать. Не, то, что Ваш вариант не устраивает, просто он ничего не вывел, во второй ДБЕдит, и я непонял как он вообще работает(запрос).

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

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

[delphiman]

Кусок кода для Quick Report

Код:

  if (ListBox_Menu1.Items.Count > 0) and (ComboBoxMenuSelect.Text <> '') then begin

    with DataModule1 do begin

      ADOQuery_Menu.Close;

      ADOQuery_Menu.SQL.Clear;

      ADOQuery_Menu.SQl.Add('SELECT id_menu_name FROM menu_names WHERE name='+chr(39)+ComboBoxMenuSelect.Text+chr(39));

      ADOQuery_Menu.Open;

      Main.Caption := ADOQuery_Menu.Fields[0].AsString;

      ///////////////////

      ADOQuery_Hot.Close;

      ADOQuery_Hot.SQL.Clear;

      ADOQuery_Hot.SQL.Add('SELECT bludo_name, price FROM menu WHERE id_type_menu=1 AND id_menu='+ADOQuery_Menu.Fields[0].AsString);

      ADOQuery_Hot.Open;

      ADOQuery_Cold.Close;

      ADOQuery_Cold.SQL.Clear;

      ADOQuery_Cold.SQL.Add('SELECT bludo_name AS Hot, '' AS Cold FROM menu WHERE id_type_menu=0 AND id_menu='+ADOQuery_Menu.Fields[0].AsString+' UNION SELECT '', bludo_name FROM menu WHERE id_type_menu=0 AND id_menu='+ADOQuery_Menu.Fields[0].AsString);

      ADOQuery_Cold.Open;

      /////////////////////

    end;

    Application.CreateForm(TReports, Reports);

    Reports.QuickRep1.Preview;

  end

  else

  ShowMessage('бШАЕПХРЕ ЛЕМЧ!');