oya sory keliru 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
