04-07-2017, Saat: 14:31
(04-07-2017, Saat: 13:31)dilo Adlı Kullanıcıdan Alıntı:while Not Eof do begin AdetSay := AdetSay + FieldByName('ADET').AsInteger; Sheet.Cells[Row, 1] := FieldByName('URUNKODU').AsString; Sheet.Cells[Row, 2] := FieldByName('URUN').AsString; Sheet.Cells[Row, 3] := FieldByName('MODEL').AsString; Sheet.Cells[Row, 4] := AdetSay; Inc(Row); Next; end;
Bunu şu şekilde düzeltmelisin, dikkat ettiysen AdetSay, ürünler değiştiğinde de toplamaya devam ediyor...
while Not Eof do begin { AdetSay := AdetSay + FieldByName('ADET').AsInteger; BU SATIRDA ÖNCEKİ SATIRLARIN TOPLAMINI DA ALIYORSUN... } Sheet.Cells[Row, 1] := FieldByName('URUNKODU').AsString; Sheet.Cells[Row, 2] := FieldByName('URUN').AsString; Sheet.Cells[Row, 3] := FieldByName('MODEL').AsString; Sheet.Cells[Row, 4] := FieldByName('ADET').AsString; Inc(Row); Next; end;
YouTube Delphi Tips
"Yaşlanarak değil, yaşayarak tecrübe kazanılır. Zaman insanları değil, armutları olgunlaştırır" Peyami Safa
"Yaşlanarak değil, yaşayarak tecrübe kazanılır. Zaman insanları değil, armutları olgunlaştırır" Peyami Safa