COMO REALIZAR OPERACOES NUM MSHFLEXGRID

LAMPIAOVALENTE2 16/11/2010 11:33:00
#357568

Tenho um programa que realiza a importação dos dados para uma MSHFlexgrid (com a ajuda dos amigos aqui do fórum), conforme mostrado abaixo, agora necessito que seja realizado uma operação matemática, por exemplo, uma multiplicação simples por 2 em cada elemento de uma mesma coluna separadamente, e jogar por exemplo essa coluna numa outra MSHFlexgrid em um outro form. Desde já, gratos a todos pela ajuda,
Segue abaixo o programa que está importando os dados:

Private Sub Command1_Click()
On Error GoTo TrataErro:

Dim fso As New FileSystemObject
Dim f As TextStream
Dim l As String
Dim v() As String
Dim i As Currency
Dim s As Currency

CommonDialog1.ShowOpen

Set f = fso.OpenTextFile(CommonDialog1.FileName, ForReading, False)

MSHFlexGrid1.Clear

l = f.ReadLine
v = Split(l, [Ô],[Ô])

MSHFlexGrid1.Cols = UBound(v) + 1

For i = 0 To UBound(v)
MSHFlexGrid1.TextMatrix(1, i) = IIf(IsNumeric(v(i)), Val(v(i)), v(i))
s = s + IIf(IsNumeric(v(i)), Val(v(i)), 0)

Next

Do While Not f.AtEndOfStream
l = f.ReadLine

v = Split(l, [Ô],[Ô])

MSHFlexGrid1.Rows = MSHFlexGrid1.Rows + 1

For i = 0 To UBound(v)
MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Rows - 1, i) = IIf(IsNumeric(v(i)), Val(v(i)), v(i))
s = s + IIf(IsNumeric(v(i)), Val(v(i)), 0)

Next
Loop

Exit Sub
TrataErro:
[ô]Erro que ocorre quando cancela um commondialog
If Err.Number <> 32755 Then
MsgBox Err.Number & [Ô] - [Ô] & Err.Description
End If
End Sub