dbgrid

VAR
I : Integer;

BEGIN
While Not Query1.Eof Do
  Begin
    I := I + StrToInt(DBGrid2.Fields[4].AsString);
    Query1.Next;
  End;
  DBEdit1.text := IntToStr(I);
END

jeg får en fejlmelding om query1
undeclared indentificer

jeg har droppet dbgrid.
oversigten kan jeg få ved at bruge quickreport

vil hellere have resultat i stausbar1

Stone den undeclared ident du får bested om er nok fordi du har kaldt din query noget andet eller du evt. ikke har dit datamodul i din user liste. Ellers ser compilos løsning da god ud.

Mads

jeg har fået det til at virke ved at erstatte yuery1 med table1,med kun en warning:I might not have be initialized,(den har ikke fået en værdi)
vil jeg tro.
resultatet af compilos\'s eksempel:13621034 ved sammenlægning af 4 tal:278,287,198,365.Efter min lommeregner skulle resultatet se ud: 1128,-
øh...lidt forskel på tallet.

Jeg har lavet dette i en tidligere application med sql kigger lige på det og vender tilbage.

Mads

Nu har jeg lige lavet en løsning som faktisk ikke kræver noget programmering udover to linier sql kode.
Du skal bruge en DataSource, Query og en DBEdit.
I DataSource har du dataset til queryen.
Queryen har så dit alias som databaseName.
I Queryens sql skal du skrive disse to linier. 
Select sum(Pris) as total // pris er kolonnes navn
from prisdb // prisdb er tabellensnavn
DBediten skal bare have Queryen som source.

Og du har dit resultat. Det virker i hvert fald fint hos mig.

Mads