codigo boton buscar
Publicado por Elsa (36 intervenciones) el 04/09/2009 21:33:52
Estoy haciendo un formulario y en los textbox tengo como controlsource variables de memoria.
Tengo que hacer los botones primero, siguiente,buscar,etc.
Por ejemplo, en el primero puse :GO TOP,scatter memvar., thisform.refresh()
En el boton buscar puse el siguiente codigo que lo saque del boton buscar de la clase txtbtns :
Que instrucciones le debo agregar al final para que funcione bien ?.
Parece ser que al buscar hace un select y quedan en memoria el o los registros encontrados, y se pierden los otros registros.
Donde puedo encontrar un ejemplo con elcodigo de los botones ?
Tenia el formulario hecho con el asistente, controlsource campos de la base, pero no funciona bien. Si recorro los campos con la tecla tab, se cuelga.
Muchas Gracias
Elsa
LOCAL oSearchDlog
LOCAL lVisChange,lStateChange
IF EMPTY(ALIAS())
RETURN
ENDIF
* Check if SDI Window
IF THISFORM.ShowWindow = 2
IF !_VFP.Visible
_VFP.Visible = .T.
lVisChange = .T.
ENDIF
IF _SCREEN.WindowState = 1
_SCREEN.WindowState = 0
lStateChange = .T.
ENDIF
ENDIF
oSearchDlog = CREATE("searchform")
oSearchDlog.SHOW()
IF m.lVisChange
_VFP.Visible = .F.
ENDIF
IF m.lStateChange
_SCREEN.WindowState = 1
ENDIF
IF THISFORM.ShowWindow = 2
Activate Window (THISFORM.Name)
ENDIF
Tengo que hacer los botones primero, siguiente,buscar,etc.
Por ejemplo, en el primero puse :GO TOP,scatter memvar., thisform.refresh()
En el boton buscar puse el siguiente codigo que lo saque del boton buscar de la clase txtbtns :
Que instrucciones le debo agregar al final para que funcione bien ?.
Parece ser que al buscar hace un select y quedan en memoria el o los registros encontrados, y se pierden los otros registros.
Donde puedo encontrar un ejemplo con elcodigo de los botones ?
Tenia el formulario hecho con el asistente, controlsource campos de la base, pero no funciona bien. Si recorro los campos con la tecla tab, se cuelga.
Muchas Gracias
Elsa
LOCAL oSearchDlog
LOCAL lVisChange,lStateChange
IF EMPTY(ALIAS())
RETURN
ENDIF
* Check if SDI Window
IF THISFORM.ShowWindow = 2
IF !_VFP.Visible
_VFP.Visible = .T.
lVisChange = .T.
ENDIF
IF _SCREEN.WindowState = 1
_SCREEN.WindowState = 0
lStateChange = .T.
ENDIF
ENDIF
oSearchDlog = CREATE("searchform")
oSearchDlog.SHOW()
IF m.lVisChange
_VFP.Visible = .F.
ENDIF
IF m.lStateChange
_SCREEN.WindowState = 1
ENDIF
IF THISFORM.ShowWindow = 2
Activate Window (THISFORM.Name)
ENDIF
Valora esta pregunta


0