Синтаксис...

ReportForm.QuickRep1.DataSet := ADOQuery1;

With ADOQuery1 do
begin
Close;
SQL.Add('SELECT MAX(Code) FROM Main');
Open;
end;

ReportForm.QuickRep1.Preview;

В генерируемый отчет всегда попадает первая запись, хотя должна попадать последняя, поскольку с помощью агрегатной функции MAX выбирается максимальное значение ключевого поля Code.
База данных Access, способ досута ADO

В чем проблема?

И ещё одна проблема, в гриде пользователь выделяет несколько записей (свойство Multiselect = true), затем только по этим записям должен сформироваться отчет, для формирования отчета использую QuickReport, QuickRep1.DataSet = ADODataSet1. Каким образом в этот ADODataSet1 можно передать выделенные в гриде записи для формирования отчета?

Заранее спасибо.

Это сообщение отредактировал(а) Monarch - 16.6.2005, 09:56

Monarch Забыл Group by без него MAX не работает...

Цитата(Monarch @ 16.6.2005, 07:57)

В генерируемый отчет всегда попадает первая запись, хотя должна попадать последняя, поскольку с помощью агрегатной функции MAX выбирается максимальное значение ключевого поля Code.

Что означает "Первая"??
В реляционных СУБД, нет понятия "номер записи". При вставке новой записи, она (запись) по идее может вставиться в ЛЮБОЕ место существующий таблицы. Твой запрос должен выбирать запись с максимальным значением поля Code. Если оно ключевое, то должно все правильно работать, и то что в таблице она "первой" отображается, так эт тока потому, что у тебя сортировка настроена по ключевому полю - в обратном порядке. так что усе нормально....наверное....

Цитата(Monarch @ 16.6.2005, 07:57)

И ещё одна проблема, в гриде пользователь выделяет несколько записей (свойство Multiselect = true), затем только по этим записям должен сформироваться отчет, для формирования отчета использую QuickReport, QuickRep1.DataSet = ADODataSet1. Каким образом в этот ADODataSet1 можно передать выделенные в гриде записи для формирования отчета?

Сделать запрос по ним, сформулировав общее условие. Но так как юзер может выбрать ЛЮБЫЕ данные, то лучше делать запрос следующего вида:

Код

Select * From Main Where Code In (Select Code From TempTable);

Т. е создать временную табличку (TempTable), с одним полем Code, в которую прежде чем выполнять запрос занести список выделенных строчек. Выделенные строчки просматриваются, с использованием цикла, и свойства SelectedRows, если мне не изменяет память, найденные таким образом Code заносятся в TempTable вручную, а затем выполняется запрос.
Естно, перед формированием нового запроса, предыдущие значения в TempTable нужно удалить, например запросом:

Код

Delete From Main