Pretpostavljam da ti je kolona sifra tipa varchar ili sta vec.Ako sam dobro razumeo sta ti treba:

Uradio sam ovako ali izlazi samo prvi red,tj suma prvog iznosa,kad vec ukucam sledeci izlazi prazno....

query1.SQL.Clear ;
query1.Close;
query1.SQL.Add ('SELECT SUM(cast(ukupno as float)) FROM statistika');
query1.SQL.Add ('WHERE sifra IN('+QuotedStr(RichEdit1.Text)+','+QuotedStr(RichEdit2.Text)+')') ;
query1.Open;


sto je i logicno jer imam samo prvi iznos(richedit1.text),a meni trebaju posebno svi unosi u prvom richeditu,i posebno u drugom,tj sume svih redova

Mogao big da stavim richedit1.lines[0],prvi red,pa [1] drugi red ili da stavim petlju for i = 0 to 20 pa da sabere sve to.....ali kako i petlju staviti,ili moze nesto lakse

Ima li neko ideju za pomoc....ovde sam stavio richedit polje,ali to moze da bude i memo.....Hitno je....Hvala unapred

Nešto tipa (iz glave bacam)

I to sam uradio,ali mi tada izbacuje xbir toga sto ukucam,a meni treba ne ta kolona koju ukucam ,nego kolona do nje....kao sto sam napisao gore kveri za to,ako ukucam 0101,treba da mi sabira recimo 12000,pa ukucam 0146,treba da mi sabira 10000,tj tada vec 22000 itd

Dodaj GROUP BY.

> query1.SQL.Add ('WHERE sifra IN('+QuotedStr(RichEdit1.Text)+','+QuotedStr(RichEdit2.Text)+')') ;
> query1.SQL.Add ('GROUP BY SIFRA');
> Query1.Open;

Isto se desava kao i bez group by jer sabira samo ono sto se ukuca u prvi red,a vec u drugi nista,prazno polje...Mora da ide neka petlja za to,inace richedit mi je skroz blank,bez linija

Kada bih stavio ovaj kod onda bi sabirao prva dva reda.....

query1.SQL.Clear ;
query1.Close;
query1.SQL.Add ('SELECT SUM(cast(ukupno as float)) FROM statistika');

query1.SQL.Add (' WHERE sifra IN('+QuotedStr(RichEdit1.Lines [0])+','+QuotedStr(RichEdit1.Lines [1])+')');

query1.Open;

ali to nije resenje,imacu vise od dva reda nekada

Isto pišem iz glave, ali trebalo bi da razumeš poentu:



Možda bi bilo bolje da jednostavno koristiš običnu TEdit komponentu i da u nju upisuješ željene šifre razdvojene zarezom. Zatim to jednostavno dodaš u kveri i rešio si problem. Ne razumem zašto koristiš TRichEdit za ovako nešto ako ti samo treba unos niza numeričkih vrednosti.

> Isto se desava kao i bez group by jer sabira samo ono sto se ukuca u prvi red,a vec u drugi nista,prazno polje...Mora da ide neka petlja za to,inace richedit mi je skroz blank,bez linija

Na osnovu tvog opisa, tebi treba group by kveri, sad možda nisam razumeo šta zapravo ti ne radi. Hajde ti pejstuj ne svoj kod već krajnju vrednost koju dobija kveri (Query1.SQL.SaveToFile).

Evo ovako,imam tabelu sa dva polja sifra i ukupno,recimo da imam upis za sifru 0101 a za ukupno 12000,i za sifru 0123 imam ukupno 15000,i sada ukucam u richedit jedno ispod drugog 0101
0123

zatim imam polje kao rezultat kverija,koje sabira ovo iz richedita,u mom slucaju to je 27000
Savkicu u tvom kodu izadje samo 12000,vec kada ukucam 0123,izlazi mi prazno polje
Nadam se da sam bio jasan

> Evo ovako,imam tabelu sa dva polja sifra i ukupno,recimo da imam upis za sifru 0101 a za ukupno 12000,i za sifru 0123 imam ukupno 15000,i sada ukucam u
> richedit jedno ispod drugog
> 0101
> 0123

> zatim imam polje kao rezultat kverija,koje sabira ovo iz richedita,u mom slucaju to je 27000

To ti je onaj prvi upit koji je neko poslao, dakle:

SELECT SUM(ukupno) FROM tabela WHERE sifra IN(...

E sad šta tu tebi tačno ne radi, pošalji tvoj kod koji generiše sql upit i samu vrednost tog kverija.

query1.SQL.Clear ;
query1.Close;
query1.SQL.Add ('SELECT SUM( ukupno ) FROM statistika');
query1.SQL.Add ('WHERE sifra IN('+QuotedStr(RichEdit1.Text)+','+QuotedStr(RichEdit2.Text)+')') ;
query1.SQL.Add ('GROUP BY Sifra');
Query1.Open;
radi kad ukucam sifru u prvi red,ali kad ukucam vec u drugi red tu ne rado,i pokaazije prazno polje

Koliko RichEdit-a imas na formi?
Ako imas jedan onda ti je Rambo lepo napisao, samo dodaj f-ju QuotedStr kada god pises u promenljivu sifra.


poz

Za sada mi je potreban jedan,ali cu imati dva kasnije,ali ako uradim za jedan lako cu i za drugi richedit,u ovom kodu nesto ne stima,a sta ne znam,sifra je string polje a ukupno integer

procedure TfrmKontrola.Button2Click(Sender: TObject);
var
sifre: integer;
i : integer;
begin
sifre := strtoint(RichEdit1.Lines[0]);
if RichEdit1.Lines.Count > 1 then
for i := 1 to RichEdit1.Lines.Count - 1 do
sifre := sifre + strtoint(RichEdit1.Lines);
showmessage(inttostr(sifre));
end;


end.

Ovaj kod mi sabira svaki red ali onaj broj koji ukucam,recimo....
2
2
izadje 4

ali nece kveri da radi