How To Add a Total to a Data Report -Cara Menambahkan Total pada Sebuah Laporan Data Report

Contoh Laporan Menggunakan Data Report

Untuk mengkalkulasi total kita dapat menggunakan function SUM yang disediakan oleh data report pada Visual Basic 6.
Kita akan merancang sebuah laporan, dengan menambahkan field total kesuluruhan yang merupakan hasil kalkukasi dari field total. Caranya antara lain:

- Tambahkan function pada report (1), letakkan pada bagian report footer section 5 (2).Atur type funtion -FunctionType dengan 0-rptFuncSum (3) namai function dengan nama fnctotal

Gambar : urutan menambahkan function ke data report

-Lakukan koding pada form penampil laporan

Set Rs = New ADODB.Recordset
Rs.Open "SELECT pembelian.no_bd, pembelian.tgl_bd, pembelian.no_terima, supplier.nmsupplier, sum( pembelian_detail.subtotal ) AS total From pembelian, supplier, pembelian_detail Where supplier.kdsupplier = pembelian.supplier And pembelian.no_bd = pembelian_detail.no_bd AND pembelian.tgl_bd Between '" & Format(DTtgldari.Value, "YYYY-mm-dd") & "' AND '" & Format(DTtglsampai.Value, "YYYY-mm-dd") & "' GROUP BY no_bd", konekdb, adOpenDynamic, adLockBatchOptimistic 'dapat disesuaikan dengan sql yang dimiliki
isi = "ALL".


If Rs.BOF Then
   MsgBox "Data Tidak Tersedia.", vbInformation + vbOKOnly, "informasi"
Else
   With rptLapBD 'nama data report
   Set .DataSource = Nothing
    .DataMember = ""
     Set .DataSource = Rs
     .Sections("Section5").Controls.item("fnctotal"). _   
     DataField = Rs("total").Name 'Total merupakan fields
   End With
  rptLapBD.Show 1
End If


- Selesai, semoga bermanfaat

Referensi : www.daniweb.com, https://msdn.microsoft.com