yes thx sudah bisa lebih efektif dan benar ternyata pakai looping recordset jangan pakai datagrid.approxcount, ternyata itu bug dari data grid.. kalau pake flexgrid juga bisa sebenarnya pakai looping flexgrid.rows tetapi program saya sudah terlanjur pakai datagrid.. ok thx
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
