Ciclos anidados (Do While [For j ... Next j] Loop) que no funcionan

Val_d_Homero
25 de Noviembre del 2008
Tengo un ciclo de "conceptos de gasto" que recorre una tabla y otro con "importes de gastos" que recorre otra tabla. El primero con Do While y el interior con For j .... El problema que tengo es que no me coge el primer apunte de la tabla "importes de gastos". El código que tengo hecho es:
.........Ciclo exterior-----
Do While noe Adodc5.Rs.Eof
concepto = Adodc5.Rs.Fields("tipodegasto").Value
condición = "concepto = '" & concepto &"'

.......Ciclo interior....
Adodc1.Rs.Filter = condicion
jfin = Adodc1.Rs.RecordCount
For j=0 to (jfin-1)
importa = Adodc1.Rs.Fields("importe").Value
If Adodc1.Rs.EOF Then
Adodc1.Rs.MoveLast
Else
Adodc1.Rs.MoveNext
End If
importex = importex + importa
Next j

Adodc5.Rs.MoveNext (esta orden no la veo en los libros, pero si no la pongo se queda fijo en el 1er registro de Adodc1).
Loop
---------------
¿Qué hay mal? porque el primer registro de Adodc1 (del ciclo interno) no lo coge. Le he dado mil vueltas y
no consigo arreglarlo. Muchas gracias.

vallekano
25 de Noviembre del 2008
Do While noe ??

yo kreo kes así

Do While yosué

Val_d_Homero
25 de Noviembre del 2008
Lo he modificado de la forma siguiente, pero tampoco funciona.Tengo un ciclo de "conceptos de gasto" que recorre una tabla y otro con "importes de gastos" que recorre otra tabla. El primero con Do While y el interior con For j .... El problema que tengo es que no me coge el primer apunte de la tabla "importes de gastos". El código que tengo hecho es:
.........Ciclo exterior-----
Do While NOT Adodc5.Rs.Eof
concepto = Adodc5.Rs.Fields("tipodegasto").Value
condición = "concepto = '" & concepto &"'

.......Ciclo interior....
Adodc1.Rs.Filter = condicion
jfin = Adodc1.Rs.RecordCount
For j=0 to (jfin-1)
importa = Adodc1.Rs.Fields("importe").Value
importex = importex + importa
Adodc1.Rs.MoveNext
Next j
Print concepto
Print importex
Adodc5.Rs.MoveNext (esta orden no la veo en los libros, pero si no la pongo se queda fijo en el 1er registro de Adodc1).
Loop
---------------
¿Qué está mal? porque el primer registro de Adodc1 (del ciclo interno) no lo coge. Le he dado mil vueltas y no consigo arreglarlo. Muchas gracias.


vallekano
25 de Noviembre del 2008
Perdona k te diga majete, k eres un chapuzas programando.

Eso se puede hacer con una simple consulta de unión interna.

Val_d_Homero
25 de Noviembre del 2008
Evidentemente lo quiero solucionar sin SQL.

vallekano
25 de Noviembre del 2008
pues nada chavalote, sigue por ay

yo tambien conoci a uno k quiso ir de madrid a cadiz pero pasando por china

Evidentemente no lo consiguio pues en las estepas siberianas se topo con una manada de osos ambrientos y les hizo frente. imaginate lo que se parecia a ti.

bueno, pardillo que tengas suerte

Val_d_Homero
25 de Noviembre del 2008
Lo primero que deberías hacer es aprender a escribir, que metes una falta de ortografía por cada dos palabras. Se ve que pasaste de largo por la escuela. Podrías ir a la escuela, pero a la primaria, ¿eh?

Val_d_Homero
25 de Noviembre del 2008
Si no sabes escribir, no es de extrañar que creas que en la estepa siberiana haya osos. No los hay. Son un animal carnívoro y en las estepas hay hierba pero poca carne. Los osos se alimentan principalmente de focas y en la estepa últimamente hay pocas.

vallekano
25 de Noviembre del 2008
Los osos se alimentan de focas?

Los del pirineo y los pandas también?

Anda el palurdo este, que ahora nos sale intelectual!
dedícate a aprender programación y deja a los osos en su sitio