|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
||||
|
||||
Цитата:
- первый столбик - отчет1, - второй столбик - отчет2, а лежат оба столбика на отчете3. Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#17
|
|||
|
|||
Что-то все чщетно.
В первом ДБедите запрос выводит все нормально, допустим 4 Элемента, а во втором выводится тоже 4-е но одинаковых(значение первого элемента). |
#18
|
|||
|
|||
Изврат конечно, но можно попробывать. Не, то, что Ваш вариант не устраивает, просто он ничего не вывел, во второй ДБЕдит, и я непонял как он вообще работает(запрос).
|
#19
|
||||
|
||||
Попробуйте выложить исходняк и базку с данными, может тогда легче будет консенсус найти.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#20
|
|||
|
|||
Кусок кода для 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('бШАЕПХРЕ ЛЕМЧ!'); |