tanya : tentang datagrid...pliss need help

pkenalkn... saya anggota bru.. n mw tnya nih ttg cara mnjumlahkn data yg ada dlm FIELD DATAGRID n cma dri kolom SUBTOTAL

masalahnya situ ga menjelaskan metode binding datagridnya, apakah menggunakan adodc atau adodb atau object lainnya.

Berikut ane coba buatkan function yang flexible, sbg contoh menggunakan adodc, intinya sama jika menggnakan connector ado lain :

Code:

Private Function Hitung_GrandTotal(strNamaField As String) As Currency
  Dim curGrandTotal As Currency
 
  With NamaAdodc.Recordset
      If .RecordCount > 0 Then
        .MoveFirst
        Do Until .EOF
            curGrandTotal = curGrandTotal + IIf(IsNull(.Fields(strNamaField)), 0, .Fields(strNamaField))
            .MoveNext
        Loop
      End If
  End With
 
  Hitung_GrandTotal = curGrandTotal
End Function

Untuk memanggil functionnya, misalnya hasilnya akan di letakan di Text1 :

Code:

Text1.Text = Hitung_GrandTotal("SUBTOTAL")

Kesimpulannya jika ingin menjumlahkan field yang lain tinggal ganti saja ("SUBTOTAL") dengan nama field lain.

Sebagai saran saja sebaiknya biasakan gunakan perintah SQL saja dengan menggunakan SELECT SUM(SUBTOTAL).... karena akan lebih cepat jika dalam jumlah data besar, tapi cara ini tidak bisa diterapkan untuk data grid.

Semoga membantu.

trima kasih... bro.. dpet ilmu bru..
q pake adodb..