Hola que tal, una pregunta alguien de ustedes sabe como sumar las celdas de un mshflexgrid, necesito hacer lo siguiente ya he probado de varias formas y ya me encuentro mareado. tengo este codigo
Código:
Fila = 1
While rs.EOF = False
.MSHFlexGrid1.TextMatrix(Fila, 2) = Format(rs.Fields("EntradaFecha"), "dd-MMM-yyyy")
.MSHFlexGrid1.TextMatrix(Fila, 10) = Format(rs.Fields("EntradaCUnitario"), "$ #,##0.00")
.MSHFlexGrid1.TextMatrix(Fila, 20) = Format(rs.Fields("EntradaCantidad") * rs.Fields("EntradaCUnitario"), "$ #,##0.00")
.MSHFlexGrid1.TextMatrix(Fila, 21) = Format(rs.Fields("Salida") * rs.Fields("EntradaCUnitario"), "$ #,##0.00")
For i = 1 To .MSHFlexGrid1.Rows - 1
.MSHFlexGrid1.TextMatrix(Fila, 6) = (CDbl(.MSHFlexGrid1.TextMatrix(Fila, 4)) + CDbl(.MSHFlexGrid1.TextMatrix(i, 6)))
.MSHFlexGrid1.TextMatrix(Fila, 22) = Format((CDbl((.MSHFlexGrid1.TextMatrix(Fila, 22)) + CDbl(.MSHFlexGrid1.TextMatrix(i, 20)))) - (.MSHFlexGrid1.TextMatrix(i, 21)), "$ #,##0.00")
Next
Fila = Fila + 1
rs.MoveNext
Wend
.Show vbModal
en la segunda sentencia despues de For aplica bien la formula pero en lo demas NO. la idea es generar lo siguiente
que es donde tengo el problema lo demas esta resuelto
Código:
ENTRADA SALIDA EXISTENCIA
25 0 25
458 0 483
12 0 495
0 95 400
La formula es Existencia = (Existencias + Entradas) - Salidas
Pero hasta ahora no me ha podido funcionar, alguna idea o que estoy haciendo mal.