Seinget saya gini kalo di Datagrid
SSQL="....."
set rs=cn.execute(SSQL)
Datagrid.DAtasource=rs
with rs
if not (.eof and ,bof) then
.movefirst
do while not .eof
Jumlah=jumlah+val(Datagrid.column(0).value) ---> Ini
.movenext
loop
endif
end with
set rs=nothing
Kira2 sih spt itu, sori kalo sintaxnya salah soalnya langsung ketik.
Salam
Axwen Alstair <[EMAIL PROTECTED]> wrote:
kalo ini buat FlexGrid or MshFlexGrid mas !!
DataGrid gak punya properti TextMatrix
--- On Fri, 5/9/08, yudi susanto <[EMAIL PROTECTED]> wrote:
From: yudi susanto <[EMAIL PROTECTED]>
Subject: Balasan: [Programmer-VB] sum di data grid
To: [email protected]
Date: Friday, May 9, 2008, 11:06 AM
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(.TextMatr ix(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 <toviconline@ yahoo.com> wrote:
hallo...
ada yang bisa menghitung sum di datagrid vb 6 ga ?
saya pakai looping..
misalkan :
for i=1 to datagrid1.approxCou nt
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
---------------------------------
Bergabunglah dengan orang-orang yang berwawasan, di bidang Anda di Yahoo!
Answers
