me queda asi:
Código:
Fila = 1
While rs.EOF = False
For i = 1 To .MSHFlexGrid1.Rows - 1
.MSHFlexGrid1.TextMatrix(Fila, 6) = (CDbl(.MSHFlexGrid1.TextMatrix(Fila, 4)) + CDbl(.MSHFlexGrid1.TextMatrix(Fila - 1, 6))) - CDbl(.MSHFlexGrid1.TextMatrix(Fila, 5))
Next
Fila = Fila + 1
rs.MoveNext
Wend
Pero sigue sin mostrame lo que necesito este es el Resultado
http://s2.subirimagenes.com/otros/pr...-almacen-i.jpg
en Existencias deveria quedarme asi: