coba aja ya mas, mgkn bisa
Sub Total()
Dim jum(3), nil(3) As Long
jum(0) = 0
jum(1) = 0
jum(2) = 0
With grid1
For i = 0 To datagrid1.Rows - 1
If IsNumeric(.TextMatrix(i, 4)) Then
nil(0) = .TextMatrix(i, 4)
Else
nil(0) = Val(.TextMatrix(i, 4))
End If
jum(0) = jum(0) + nil(0)
Next
Label3.Caption = jum(0)
End With
End Sub
di mana ".TextMatrix(i, 4)" adalah kolom pada datagrid yang mau dijumlah. ini
aq buat sub procedure, jd bisa dipanggil di semua event
toviconline <[EMAIL PROTECTED]> wrote: hallo...
ada yang bisa menghitung sum di datagrid vb 6 ga ?
saya pakai looping..
misalkan :
for i=1 to datagrid1.approxCount
total=total+ datagrid1.columns("total")
next
tetapi kok yang terhitung hanya row grid yang keliatan saja.. jadi
penjumlahannya salah... yang tidak keliatan jd tidak terhitung
ok thx...
---------------------------------
Bergabunglah dengan orang-orang yang berwawasan, di bidang Anda di Yahoo!
Answers
