SOMANDO COLUNA FLEXGRID

USUARIO.EXCLUIDOS 10/12/2006 15:00:28
#189120
Aew galera blz???

bom eu to querendo fazer um eskema onde eu adicione varios valores no flex grid, em 2 colunas, o sistema irá multiplicar a 1Âê coluna com a 2Âê coluna, e irá colocar os respectivos resultados em cada linha, apos isso ele teria q somar a 3Âê coluna e colocar o resultado em uma label, bom ele faz tudo isso poré não soma, estou usando o seguinte código:


Grid.Cols = 3
Grid.Rows = 4

Grid.TextMatrix(0, 0) = "10,50"
Grid.TextMatrix(0, 1) = "2"
Grid.TextMatrix(1, 0) = "20"
Grid.TextMatrix(1, 1) = "2"
Grid.TextMatrix(2, 0) = "2,35"
Grid.TextMatrix(2, 1) = "3"






Grid.TextMatrix(0, 2) = Grid.TextMatrix(0, 1) * Grid.TextMatrix(0, 0)
Grid.TextMatrix(1, 2) = Grid.TextMatrix(1, 1) * Grid.TextMatrix(1, 0)
Grid.TextMatrix(2, 2) = Grid.TextMatrix(2, 1) * Grid.TextMatrix(2, 0)


For i = 0 To Grid.Rows
Label1.Caption = Val(Label1.Caption) + Val(Grid.TextMatrix(i, 2))
Next


se eu usar o 
  On Error Resume Next
ele faz a operação porém ele descarta a virgula e todos os valores após a virgunla, alguem consegue me ajuda???


abraço!!!! e obrigado

Att. Arthur Fontana
USUARIO.EXCLUIDOS 10/12/2006 19:25:56
#189139
Cara tenta o seguinte..dentro do for tente colocaro format no lugar do val
Por exemplo:

[txt-backcolor=#ffff00]For i = 0 To Grid.Rows
Label1.Caption = Val(Label1.Caption) + format(Grid.TextMatrix(i, 2))
Next[/txt-backcolor]
USUARIO.EXCLUIDOS 11/12/2006 14:36:15
#189305
Tente assim:

For i = 0 To Grid.Rows
Label1.Caption = Val(Label1.Caption) + format(Grid.TextMatrix(i, 2),0##.00)
Next

Espero que te ajude.
USUARIO.EXCLUIDOS 11/12/2006 15:43:50
#189331
Grande diferença Marcos...
O q vc fez no seu exemplo é a mesma coisa q o meu
Tópico encerrado , respostas não são mais permitidas
Voltar