Mi duda es la siguiente.....

javier
23 de Octubre del 2003
Tengo una forma que hace el recorrido de mi tabla,
mostrandome todos los datos, en esta forma existe el boton Agregar que tiene el siguiente codigo:

thisform.Cmbresp.Enabled=.T.
thisform.CmbActividad.Enabled=.T.
thisform.Cmbprioridad.Enabled=.T.
thisform.CmbStatus.Enabled=.T.
thisform.txtDate.Enabled=.T.
thisform.txtComentario.Enabled=.T.
thisform.txtdial.enabled=.T.
thisform.Cmbmesl.enabled=.T.
thisform.Cmbañol.enabled=.T.
thisform.txtdiac.enabled=.T.
thisform.Cmbmesc.enabled=.T.
thisform.Cmbañoc.enabled=.T.
thisform.Optionviaje.enabled=.T.
thisform.Commandgroup1.Enabled=.T.
thisform.txtfechact.enabled=.T.
go bottom
thisform.refresh
append blank
thisform.Cmbresp.setfocus
thisform.refresh

una vez que yo ya inserte estos datos a mi tabla quiero copiarlos en otra linea de la tabla pero necesito que el usuario pueda cambiar la fecha, en otras palabras una vez que el usuario ya inserto la informacion y quiere volver a meter los datos va a presionar un boton, como hago para que todos los campos conserven su valor y solo los campos de fecha se vacien, es decir tengo que usar un append blank y eso me va a vaciar todos los campos, necesito su ayuda.

Gracias

abraham
23 de Octubre del 2003
bueno no relaciono los textos con los campos de mis bases de datos y yo hago esto:

append blanck

replace mi_campo with mi_objeto_de_texto.text

no se si te sirva pero si relacionas tus objetos llamese text con los campos de tu tabla (en la propeidad controlsource) tienes que ver algo con sccatter (no me acuerdo bien)

salu2

Alex
23 de Octubre del 2003
Quetal Javier.

creo conveniente que uses un boton para ingresar el valor inicial en cada campo y otro boton para hacer la copia de los datos previamente ingresados, mas o menos asi.

Boton para valor inicial.
APPEND BLANK
ThisForm.Refresh()
Thisform.Cmbresp.setfocus


Boton para copiar (Usando el SCATTER).
SCATTER MEMVAR BLANK
m.Resp=Tabla.resp
m.Actividad=Tabla.Actividad
m.Prioridad=Tabla.Prioridad
m.Status =Tabla.Status
APPEND BLANK
GATHER MEMVAR
ThisForm.Refresh()
ThisForm.txtDate.SetFocus()


Alex Vargas