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 Class Form1

    Public conn As OleDbConnection

    Public da As OleDbDataAdapter

    Public ds As DataSet

    Public cmd As OleDbCommand

    Public dr As OleDbDataReader

    Public Sub koneksi()

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

        conn.Open()

    End Sub

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

        Call koneksi()

        da = New OleDbDataAdapter("select * from tblbarang", conn)

        ds = New DataSet

        da.Fill(ds)

        DGV.DataSource = ds.Tables(0)

        DGV.ReadOnly = True

        Dim keterangan As String = "Total ----------->"

        For kolom As Integer = 3 To DGV.ColumnCount - 1

            Dim total As Integer = 0

            Dim max As Integer = DGV.Rows.Count - 1

            For Each row As DataGridViewRow 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