menampilkan jumlah total di dalam datagridview

Sebagian orang menganggap atau menginginkan pengolahan data dalam program sama degan data di excel. Padahal sebenarnya dalam program tidak semudah yang dibayangkan. Misalnya kita ingin menjumlahkan data dari atas ke bawah dengan excel cukup dengan menulis rumus =SUM(A1:B5). Tetapi didalam program anda harus bekerja keras untuk menemukan hasil tersebut.

Pada kesempatan kali ini saya akan menjelaskan bagaimana cara menampilkan jumlah total data dan hasilnya disimpan di bagian bawah datagridview

Pertama buatlah sebuah project baru

Kedua buatlah form seperti gambar di bawah ini (hanya sebuah datagridview saja)

Lalu ketiklah atau copy coding  berikut ini :

Imports System.Data.OleDb

Public ClassForm1

    Public conn As OleDbConnection

    Public da As OleDbDataAdapter

    Public ds As DataSet

    Public cmd As OleDbCommand

    Public dr As OleDbDataReader

    Public Sub koneksi()

        conn = NewOleDbConnection("provider=microsoft.jet.oledb.4.0;data source=database.mdb")

        conn.Open()

    End Sub

    Private Sub Form1_Load(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load

        Callkoneksi()

        da = NewOleDbDataAdapter("select * from tblbarang", conn)

        ds = NewDataSet

        da.Fill(ds)

        DGV.DataSource = ds.Tables(0)

        DGV.ReadOnly = True

        Dimketerangan As String= "Total ----------->"

        Forkolom As Integer= 3 To DGV.ColumnCount - 1

            Dimtotal As Integer= 0

            Dimmax As Integer= DGV.Rows.Count - 1

            ForEach row AsDataGridViewRow In DGV.Rows

                total = total + row.Cells(kolom).Value

            Next

            DGV.Rows(max).Cells(2).Value = keterangan

            DGV.Rows(max).Cells(kolom).Value = total

        Next

    End Sub

End Class