Flexgrid - TextTotal - Click Botão

[George Ferraz]

Oi bom dia galera, tenho um Form com um MsFlexgrid em tempo de execução com suas linhas e colunas sendo preenchidas e não estou conseguindo pegar a coluna e suas linhas com valores e somar todas numa textbox atrevés de um botão? como faço isso ?

Código do Botão

Private Sub TxtValorTotal.Text( )

Txtvalortotal.Text = Ccur(MsFlexgrid.TextMatrix(1, 4) ) + (Msflexgrid.TextMatrix(2, 4) ) + (MsFlexgrid.TextMatrix(3, 4) ) ...

End Sub

Caros amigos, deste forma q faço a rotina funciona, desde que o usuário esteja com as três linhas acima preenchidas, mais a idéia é q ele possa totalizar com 1 - linha, com 2 linhas ou com 3 linhas, e assim como ele quizer, mais não estou conseguindo fazer, uma ajuda rapazeada, por favor.

Desde já agradeço a força valeu...

[webdeveloper]

Tente assim:

Private Sub TxtValorTotal.Text( )

Txtvalortotal.Text = Ccur(Iif(IsNull(MsFlexgrid.TextMatrix(1, 4)), 0, MsFlexgrid.TextMatrix(1, 4)) ) + (Iif(IsNull(Msflexgrid.TextMatrix(2, 4)), 0, Msflexgrid.TextMatrix(2, 4)) ) + (Iif(IsNull(MsFlexgrid.TextMatrix(3, 4)), 0, MsFlexgrid.TextMatrix(3, 4)) ) ...

End Sub

[Macêdo]

Acho que seria melhor usar um FOR NEXT, pois imagina ter que colocar tantas quantas forem as linhas preenchidas do Flex?

[George Ferraz]

Valeu amigo Anderson Robeto, vou tentar com sua instrução, amigo Macêdo eu tbém estou quebrando a cabeça com a repetição For Next, mais ainda não consegui montar, mais meus amigos, muito obrigado por suas idéias, valeu brother´s

Editado Março 14, 2008 por George Ferraz

[George Ferraz]

Amigos, valeu a força de todos, concluido problema. Coloquei uma If em cada linha do MsFlexgrid e deu certo, ou seja se o Flexgrid é preenchido com 2 linhas ele grava, se é preenchido com 3 linhas ele grava e assim sucessivamente, agora se for preenchido com 1 linha só Else = MsgBox "Você Precisa de no Mínimo duas Materias-Primas" "Consulte o Estoque Novamente".

Grato a todos pela atenção valeu.