Total di DBGrid

 
user image
more 8 years ago

tomifernandus

mau tnya untuk penjumlahan di dbgrid itu bgaimana ya misal di baris dbgrid ad 2 barang yg sma yg dimunculkan hnya satu .. tpi diambil total dari 2 baris tersebut.. saya sudah coba dengan cara ... procedure TForm1.Button3Click(Sender: TObject); var namabarang: string; total: double; begin total := 0; memo1.clear; with q_beli do begin First; while not eof do begin if namabarang = q_beliNAMA_BARANG.Value then begin total := total + q_beliharga.Value; end else begin total:=q_beliharga.AsFloat; Memo1.Lines.Add(q_beliNAMA_BARANG.value+' ---- '+FloatToStr(total)); end; namabarang:=q_beliNAMA_BARANG.Value; next; end; end; end; jumlah barang yg tampil di memo betul cman untuk total nya msih salah
user image
more 8 years ago

tomifernandus

mau tnya untuk penjumlahan di dbgrid itu bgaimana ya misal di baris dbgrid ad 2 barang yg sma yg dimunculkan hnya satu .. tpi diambil total dari 2 baris tersebut.. saya sudah coba dengan cara ... procedure TForm1.Button3Click(Sender: TObject); var namabarang: string; total: double; begin total := 0; memo1.clear; with q_beli do begin First; while not eof do begin if namabarang = q_beliNAMA_BARANG.Value then begin total := total + q_beliharga.Value; end else begin total:=q_beliharga.AsFloat; Memo1.Lines.Add(q_beliNAMA_BARANG.value+' ---- '+FloatToStr(total)); end; namabarang:=q_beliNAMA_BARANG.Value; next; end; end; end; <a href="http://http://www.facebook.com/photo.php?fbid=104721073009927&set=o.106038902774183&type=1&relevant_count=1&ref=nf">Gambar</a> jumlah barang yg tampil di memo betul cman untuk total nya msih salah.. ada yg tau ga kira2 gmana cara dpetin totalnya .. thank's before
more ...
  • Pages:
  • 1
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com