Bermain-main dengan Microsoft Hierarcichal FlexGrid di Visual Basic 6

Post ini hanya buat pemula,,,buat sang master tolong di koreksi jika ada kesalahan,,,,ehehehe
Apakah kamu termasuk seseorang yang menyukai pemrograman....????terutama menggunakan Visual Basic...????Pernahkah kamu menemuai masalah ini...?
1. Ketika membuat Form One to many Kamu kesulitan membuat jumlah total dari sub total?
contoh kasus:
     Seorang customer membeli lebih dari satu barang,dengan satu no transaksi,lihat form berikut:

Form Transaksi Penjualan One To Many

Pada form diatas terdapat MSH flexGrid dimana grid tersebut di koneksikan dengan Data Base pada tabel  sementara. Pada Kolom terakhir ada Subtotal yang merupakan hasil dari harga di kalikan jumlah beli. Permasalahannya: bagaimana cara menjumlahkan subtotal-subtotal tersebut manjadi jumlah total dari semua transaksi.
SOLUSI :
 Hal ini dapat diatasi dengan solusi berikut, Lihat listing di bawah ini:
 
Sub Total()
Dim jum(3), nil(3) As Long
jum(0) = 0
jum(1) = 0
jum(2) = 0

With Grid
    For i = 0 To Grid.Rows - 1
         If IsNumeric(.TextMatrix(i, 5)) Then
           nil(0) = .TextMatrix(i, 5)
          Else
             nil(0) = Val(.TextMatrix(i, 5))
          End If
          jum(0) = jum(0) + nil(0)
           
    Next
   Text8.Text = jum(0)
End With
End Sub
Penjelasan:
jum= Variable Untuk Total
nil= Variable untuk subTotal
Grid= Nama dr MSHFlexGrid
Textmatrix(i,5)= Variable untuk memanggil Baris ke ( i ) pada Kolom (5)
Untuk menjumlahkan subtotal dari baris pertama sampai baris terakhir kita menggunakan perulangan yaitu FOR......NEXT.
Untuk menyeleksi perhitungan kita menggunakan Pernyataan perhitungan hanya akan terjadi ketika kolom berisi angka hal ini untuk menghindari looping atau perulangan perhitungan pada kolom yang tak berisi record/data.Kita menggunakan:
If....End If
Sekian Posting saya tentang Microsoft Hierarcichal FlexGrid di Visual Basic 6 semoga dapat membantu dan berguna bagi yang membaca.
Just Share What I ever Get...
Untuk pertanyaan seputar post ini silahkan tinggalkan comment..