Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Como sumar dentro de un Flex grid

Estas en el tema de Como sumar dentro de un Flex grid en el foro de Visual Basic clásico en Foros del Web. Hola todos, necesito sumar dos columnas de un lfex grid.. el resultado lo tengo que poner debajo de esas columnas hasta llegar a la fuila ...
  #1 (permalink)  
Antiguo 11/05/2009, 18:34
Avatar de fedefrankk  
Fecha de Ingreso: agosto-2007
Mensajes: 871
Antigüedad: 16 años, 8 meses
Puntos: 7
Pregunta Como sumar dentro de un Flex grid

Hola todos, necesito sumar dos columnas de un lfex grid.. el resultado lo tengo que poner debajo de esas columnas hasta llegar a la fuila 5..
no se como yo hice esto :

Código PHP:
Private Sub Command1_Click()
incrementa incrementa 1
MSFlexGrid1
.Rows incrementa
MSFlexGrid1
.TextMatrix(incrementa0) = Text1
MSFlexGrid1
.TextMatrix(incrementa1) = Text2
MSFlexGrid1
.TextMatrix(incrementa2) = Text3
MSFlexGrid1
.TextMatrix(incrementa3) = Text4
incrementa 
incrementa 1
If incrementa 5 Then

For 1 To incrementa
MSFlexGrid1
.TextMatrix(13) = Val((MSFlexGrid1.TextMatrix(incrementa2))) + Val((MSFlexGrid1.TextMatrix(incrementa2)))


Next t
End 
If 
Obiamente me salen errores por todo lados y no tengo el resultado.. lo que quiero es sacar el promedio de text 3 y text 4 --- text1 es nombre y text2 es apellido
gracias de antemano
saludos a todos
fede
  #2 (permalink)  
Antiguo 13/05/2009, 12:14
Avatar de fedefrankk  
Fecha de Ingreso: agosto-2007
Mensajes: 871
Antigüedad: 16 años, 8 meses
Puntos: 7
De acuerdo Respuesta: Como sumar dentro de un Flex grid

Solucione el problema:
aca dejo el codigo:

Código PHP:
inc inc 1
MSFlexGrid1
.Rows inc
MSFlexGrid1
.TextMatrix(inc0) = Text1
MSFlexGrid1
.TextMatrix(inc1) = Text2
MSFlexGrid1
.TextMatrix(inc2) = Text3
MSFlexGrid1
.TextMatrix(Val(inc), 3) = Text4
For 1 To inc
su 
su Val(MSFlexGrid1.TextMatrix(Val(s), 2))
suma suma Val(MSFlexGrid1.TextMatrix(Val(s), 3))
Next s
Text5 
suma
Text6 
su
Text7 
Val(inc)
If 
Val(inc) = 5 Then
promedio1 
Val(su) / Val(inc)
promedio2 Val(suma) / Val(inc)
Text8 promedio1
Text9 
promedio2
inc 
inc 2
MSFlexGrid1
.Rows inc
MSFlexGrid1
.TextMatrix(Val(inc), 2) = Val(Text8)
MSFlexGrid1.TextMatrix(Val(inc), 3) = Val(Text9)
End If 
saludos a todos
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 10:02.