no se ejecuta correctamente el bucle for
Publicado por uri_lop (2 intervenciones) el 19/01/2016 15:03:47
antes que nada un saludos a toda la comunidad, estoy utilizando vb6 , con base de datos en acces 2003, bueno mi problema consiste en bucle for, realizo una ciclo para ir sumando los totales, se tiene que repetir n veces según sea el tamaño del registro, pero solo se repite una vez, aparte que pasa algo extraño, este bucle funcionaba a la perfección, el problema empezó cuando sobrescribir la base de datos, ya que tenia un respaldo y lo necesitaba, todos modos anexo el codigo por si el problema es programacion, espero contar con su valiosa ayuda, gracias...
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim Total '''variable para ir sumando
Dim Ganancia
With RSVentaDiaria 'llamo a la tabla
.Requery 'actualizo
.MoveFirst 'nueve el punto al primer registro
For x = 0 To .RecordCount 'ejecuto un ciclo para recorrer la base del 1 hasta el total de registro
If DTPfecha.Value = !Fecha Then 'hago una condicion para saber si la venta pertenece a la fecha que estoy buscando
Total = Total + Val(!Total_a_Pagar) ' suma de la ventad diaria
Ganancia = Ganancia + Val(!Utilidad)
Else
If x = .RecordCount Then ' si la variable llego al final muestro el total en el los label
Label13.Caption = Total
Label14.Caption = Ganancia
End If
End If
.MoveNext ' avanzo al siguiene regisro
Next ' avanzo el for
End With
Valora esta pregunta
0
