DBGrid фокус на первую строчку

[Blood_ghosT]

Добрый вечер форумчани!!
помогите решить проблему, раньше такого не было!!
Я умножаю два столбца Цену и Количество. И на DBGrid'е постоянно фокус фокусируется на последней записи!!
Вот код:

begin
//frmConnection.qOnWarehouse.Active:=false;
frmConnection.qOnWarehouse.Close;
        frmConnection.qOnWarehouse.SQL.Clear;
        frmConnection.qOnWarehouse.SQL.Add('Select Amount, Price, SumPrice');
        frmConnection.qOnWarehouse.SQL.Add('from OnWarehouse');
        //frmConnection.qOnWarehouse.Active:=true;
        frmConnection.qOnWarehouse.Open;
summaOnWarehouse:=0;
     begin
     frmConnection.qOnWarehouse.First;
        for i := 1 to frmConnection.qOnWarehouse.RecordCount do
           begin      summaOnWarehouse:=frmConnection.qOnWarehouse.FieldByName('Price').AsCurrency * frmConnection.qOnWarehouse.FieldByName('Amount').AsInteger;
                frmConnection.qOnWarehouse.Edit;
       frmConnection.qOnWarehouse.FieldByName('SumPrice').AsCurrency:=summaOnWarehouse;
                frmConnection.qOnWarehouse.Post;
                frmConnection.qOnWarehouse.Next;
                frmConnection.dsOnWarehouse.DataSet.Refresh;
           end;
     end;
end;

Побывал на OnActive и OnCreate постоянно одно и тоже!!! Вот и решил программно фокус поставить на первую запись через (first) и тоже ни как.Помогите пожалуйста!!

[Serge_Bliznykov]

так, очевидно, Вы же меняете позицию в связанном датасете qOnWarehouse

в конце процедуры перед выходом банально поставьте
frmConnection.qOnWarehouse.First;
и всё...


p.s. И СОВЕРШЕННО непонятно, зачем в цикле на клиенте вычислять то, что может быть банально вычислено в запросе!!!!

[Blood_ghosT]

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

так, очевидно, Вы же меняете позицию в связанном датасете qOnWarehouse

Фишка в том что раньше этот же код и я использовал и все было в шоколаде, правда я на делфи 2007 писал код гира.А ща 2010 Embarcodera. А через запрос это count который или как объясните пожалуйста!!

[Stilet]

frmConnection.qOnWarehouse.SQL.Add('Select Amount, Price, SumPrice, Amount* Price "Умноженное"');

Вот что имел ввиду Серж.

[Blood_ghosT]

Спасибо за помощь!!
И я КЭП

[Blood_ghosT]

frmConnection.qOnWarehouse.SQL.Add( 'Select Amount, Price, SumPrice, Amount* Price AS "Умноженное"');