MsFlexgrid x TxtBox

[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...

Editado Março 11, 2008 por George Ferraz

[Pinguimbera]

Bom estou sem o VB aqui neste computador, mas tente alguma coisa sobre ROW e Columms (linha e coluna).. talvez você possa um select no dado que você deseja e jogar os dados do select no textbox..

[George Ferraz]

Bom amigo Pinguembera, eu havia testado usando Row e Col, mais não deu certo por conta q eu só consigo pegar algum valor ou texto do MsFlexgrid, através da propriedade TextMatrix, agora eu vou tentar associar usando o comando SQL Select, como você aconselha.

Mano valeu sua atenção.

Editado Março 11, 2008 por George Ferraz

[Pinguimbera]

Pois não, ao seu dispor. Qualquer coisa poste novamente que logo quando chegar do trabalho analizo!

Abraços

[Guest Ângelo Barbosa]

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...

Você poderia ter uma variavel do tipo integer e percorrer o MsFlexGrid para somar o valor.

EX: O VALOR QUE DESEJA SOMAR ESTA NA COLUNA 4

DIM i AS INTEGER

DIM vALOR_TOTAL AS CURRENCY

vALOR_TOTAL=0

WITH MSFLEXGRID1

FOR i=0 TO

IF .TEXTMATRIX(i,4) <> "" THEN

vALOR_TOTAL= vALOR_TOTAL + CCUR(.TEXTMATRIX(i,4)

END IF

NEXT

END WITH

TXTVALORTOTAL=vALOR_TOTAL

isso irá funcionar idependente do nº de linhas

obs: se sua primeira linha for o nome da coluna a variavel (i) deverá começar com 1.

angelocesar.cpd@gmail.com