Problema con txt después de una búsqueda
Buenas noches experto tengo un problema con las txtbox después de una búsqueda,
lo que pasa es que si encuentra el registro y imprime la información en los txtbox correspondientes, pero el momento de hacer una nueva búsqueda no borra los datos anteriores en los txtbox . Espeor me pudieran ayudar gracias
lo que pasa es que si encuentra el registro y imprime la información en los txtbox correspondientes, pero el momento de hacer una nueva búsqueda no borra los datos anteriores en los txtbox . Espeor me pudieran ayudar gracias
1 Respuesta
Respuesta de Víctor Arturo Mercado Fernández
1
Antes de hacer la búsqueda incluye las líneas:
With ThisForm
.txtValor1.Value = "" && Para los valores de tipo caracter
.txtValor2.Value = 0 && Para los valores numéricos
.txtValor2.Value = CtoD("") && Para los valores de tipo fecha
EndWith
With ThisForm
.txtValor1.Value = "" && Para los valores de tipo caracter
.txtValor2.Value = 0 && Para los valores numéricos
.txtValor2.Value = CtoD("") && Para los valores de tipo fecha
EndWith
Gracias por responder
Mira ya puse lo que me dijiste en el valid de txtfecha antes de la búsqueda seria el sig código:
With ThisForm
.txtnombre.Value = ""
.txtape.value=""
EndWith
SELECT *from "datos/aspirantes.dbf" into cursor c1
SCAN
SELECT 1
LOCATE FOR this.Value=aspirantes.ficha
IF FOUND ()
with thisform
.setall("visible",.t., "label")
.setall("visible",.t., "textbox")
.txtnombre.value=c1.nom_asp
.txtape.value=c1.apellidos
ENDWITH
else
messagebox("registro no encontrado ",0,"***ATENCION***")
bandera=1
this.value=" "
return .f.
Endif
ENDSCAN
Gracias experto espero su respuesta
Mira ya puse lo que me dijiste en el valid de txtfecha antes de la búsqueda seria el sig código:
With ThisForm
.txtnombre.Value = ""
.txtape.value=""
EndWith
SELECT *from "datos/aspirantes.dbf" into cursor c1
SCAN
SELECT 1
LOCATE FOR this.Value=aspirantes.ficha
IF FOUND ()
with thisform
.setall("visible",.t., "label")
.setall("visible",.t., "textbox")
.txtnombre.value=c1.nom_asp
.txtape.value=c1.apellidos
ENDWITH
else
messagebox("registro no encontrado ",0,"***ATENCION***")
bandera=1
this.value=" "
return .f.
Endif
ENDSCAN
Gracias experto espero su respuesta
¿Por qué instrucciones Selecty-SQL si la tabla aspirantes es compatible con VFP?
