De nuevo yo
Ay dios mio..
Soy la de la tabla de num_folio me mandaste un código que esta bien...
SEEK THISFORM.txtnum_fol.VALUE
IF EOF()
APPEND BLANK
REPLACE Folio.num_fol WITH THISFORM.txtnum_fol.VALUE
ELSE
MESSAGEBOX( "Él número de folio ya existe", "Folio", 64 )
ENDIF
pero hay algo... Porque me dice que la tabla no tiene indice si ya le genere uno en la tabla,, estoy trabajando en visual fox pro 7.0 y le puse un indice normal y cuando ejecuto el formulario para capturar el folio me dice "La tabla no tiene ningún indice establecido" porque, porque, porque gracias por tu paciencia
Soy la de la tabla de num_folio me mandaste un código que esta bien...
SEEK THISFORM.txtnum_fol.VALUE
IF EOF()
APPEND BLANK
REPLACE Folio.num_fol WITH THISFORM.txtnum_fol.VALUE
ELSE
MESSAGEBOX( "Él número de folio ya existe", "Folio", 64 )
ENDIF
pero hay algo... Porque me dice que la tabla no tiene indice si ya le genere uno en la tabla,, estoy trabajando en visual fox pro 7.0 y le puse un indice normal y cuando ejecuto el formulario para capturar el folio me dice "La tabla no tiene ningún indice establecido" porque, porque, porque gracias por tu paciencia
1 Respuesta
Respuesta de Víctor Arturo Mercado Fernández
1
Porque el índice no esta activo, para hacerlo escribe el siguiente código en el evento INIT del formulario:
SELECT Folio
SET ORDER TO 1
SELECT Folio
SET ORDER TO 1
