FoxPro/Visual FoxPro - ayuda

he hecho cuanto existe y nada, ahora necesito su ayuda, tengo que crear unos registros desde dos vistas(vgastos y vpropietarios) a otra vista (vgastapartamento,) es un sistema de archivos compartidos y tengo este codigo en un boton en un formulario:

DO CASE
CASE vacio(Thisform.nroapto,"C")
= MESSAGEBOX("Indique El Apartamento",0,"Error")

OTHERWISE
Thisform.codgasto = Thisform.Grid1.Column2.Text1.Value
INSERT INTO vgastapartamento(nroapto,cod_gasto) VALUE (Thisform.nroapto,Thisform.codgasto)
TABLEUPDATE(0,.F.,"vgastapartamento")
UNLOCK ALL
ENDCASE
la idea es crear en la vista vgastapartamento todos los propietarios con su codigo del apartamento y su gasto. Claro con este codigo se puede realizar pero uno por uno,
¿QUE IDEA SERIA MEJOR PARA HACERLO EN LOTE?. ES DECIR SI HAY 5 GASTOS, A CADA APARTAMENTO DEBE IR 5 GASTOS,

EJEMPLO: EXISTEN LOS APARTAMENTOS 01-01 Y 01-02 Y LOS GASTOS 01,02,03,04,05
ENTONCES al 01-01 DEBEN ASIGNARCELE EL GASTO 01,02,03,04,05.
DISCULPEN SI DETALLO TANTO.

AGRADEZCO SU ACCION DE ANTEMANO.
SALUDOS.

Hola Aldemir
Usa un miniciclo For ..EndFor

esto a modo de teoría..supongamos que el valor sea 5
la variable x es el valor que introducimos x teclado Ok.?

x=Thisform.Text1.Value

Public x
x=0
For n=1 to x (5)
If rlock()
Thisform.codgasto = Thisform.Grid1.Column2.Text1.Value
INSERT INTO vgastapartamento(nroapto,cod_gasto) VALUE
endif
End For
Thisform.Refresh

Juan disculpa en el For n=1 to x (5) EL NUMERO 5 DEBO PONERLO DENTRO DEL PARENTESIS? Y DONDE DEBO COLOCAR ESTE FOR EN MI CODIGO?

GRACIAS Y DISCULPA HERMANO.

No Ademir el n° 5 u otro n° se ingresa por teclado ,ese parentesis al lado
es un ejemplo.

dentro de un form ese código va en un Command Button
en el evento Click ya que te genera un procesos x lotes .Ok.

POR SUPUESTO JUAN TENGO EL CODIGO EN EL EVENTO CLICK DE UN BOTON:
ESTE ES EL CODIGO: EL QUE ME ENVIASTE JUNTO CON EL MIO
DO CASE
CASE vacio(Thisform.nroapto,"C")
= MESSAGEBOX("Indique El Apartamento",0,"Error")
OTHERWISE

*x=Thisform.combo1.Value
x=0
*For n=1 to x
*If rlock()
Thisform.codgasto = Thisform.Grid1.Column2.Text1.Value
INSERT INTO vgastapartamento(nroapto,cod_gasto) VALUE (Thisform.nroapto,Thisform.codgasto)
TABLEUPDATE(0,.F.,"vgastapartamento")
UNLOCK ALL
*ENDIF
*ENDFOR
ENDCASE

bién Aldemir .

ve si puedes ayudarme con el codigo..................Gracias.

Ok.puedes usar el chat del hotmail.
solo lo hábilito en horas de la mañana ??
también a mi correo .

OK MEJOR SERA CON EL CORREO, YA QUE ME CONTROLAN EL MESSENGER
SALUDOS, INCLUSO TE ENVIARE EL PROYECTO CON TODO.
SALUDOS