caros amigos....

 

estou tentando somar uma coluna da DAtagrid, mas ta dando erro, pelo q vi, na hora q o loop chega no final da tabela... vejam o codigo q to usando:

 

--------------------------------------------------

'faz a soma dos creditos
    Dim i As Integer
    Dim SomaCred As Double
    SomaCred = "0"
    DataGrid1.Col = 4 ' coluna a ser somada
    For i = 0 To DataGrid1.ApproxCount - 1            
       DataGrid1.Row = i                          ( O ERRO OCORRE NESTA LINHA)

       SomaCred = CCur(DataGrid1.Columns(10).Text) + SomaCred
    Next
       Label3.Caption = Format(SomaCred, "0.00")
--------------------------------------------------------------------

 

Run-time error '6148"

Invalid row number

 

 

se alguem puder me ajudar, agradeço!!!!

 

       Dim i As Integer
    Dim SomaCred As Double
    SomaCred = "0"
        For i = 0 To DataGrid1.ApproxCount - 1            
      

eu um erro:

 

nesta linha:

SomaCred = CCur(DataGrid1.Columns(4).CellValue(DataGrid1.SelBookmarks(i))) + SomaCred

 

 

erro:

run-time error '9'

subscript out of range

 

 

substitui no for..

for i=0 to DataGrid1.SelBookmarks.Count -1

coloquei o codigo assim:

    Dim i As Integer
    Dim SomaCred As Double
    SomaCred = "0"
    'For i = 0 To DataGrid1.ApproxCount - 1
    For i = 0 To DataGrid1.SelBookmarks.Count - 1
        SomaCred = CCur(DataGrid1.Columns(10).CellValue(DataGrid1.SelBookmarks(i))) + SomaCred
        MsgBox SomaCred
    Next i
       Label3.Caption = Format(SomaCred, "0.00")

 

mas nao apareceu o somatorio, ate coloquie um MSGBOX pra ver se tava rodando algo, mas ele na ta passando por esse codigo, tambem nao deu erro