Ayuda urgente con el GRID
Publicado por Danny (2 intervenciones) el 11/06/2002 23:28:44
Hola, mi prob. es el sig. tengo datos en un grig. Necesito seleccionar alguno para desplegarlo en un formulario, pero cuando lo hago presionando enter, siempre aparece el primero que di de alta. ¿Cómo le hago para que aparezca el que seleccioné?
Aquí está en código:
THISFORM.CatDetenidos
*
IF LASTKEY() = 23
select &CatDet
m.NumExp = NumExp
m.NumControl = NumControl
*
SELECT Detenido
SET ORDER TO TAG NumExp
IF SEEK(m.NumExp)
SCATTER MEMVAR MEMO
*
SELECT Colonias
SET ORDER TO TAG Clave
m.ColoniaDesc = IIF(SEEK(m.Colonia),Colonias.Descripcio,"")
*
SELECT Ciudades
SET ORDER TO TAG Clave
IF SEEK(m.Originario)
m.OrigenDesc=Alltrim(Ciudades.Descripcio)
m.Estado=Ciudades.Estado
SELECT Estados
SET ORDER TO TAG CLAVE
m.EstadoDesc=IIF(SEEK(M.ESTADO),Alltrim(Estados.Descripcio),"")
ELSE
m.OrigenDesc=""
ENDIF
*
SELECT Profesio
SET ORDER TO TAG Clave
m.OcupaDesc=IIF(SEEK(m.Ocupacion),Profesio.Descripcio,"")
*
SELECT EDOCIVIL
SET ORDER TO TAG CLAVE
m.EdoCivilDesc=IIF(SEEK(m.edocivil),Edocivil.Descripcio,"")
*
SELECT Estudios
SET ORDER TO TAG Clave
m.Estudios = IIF(SEEK(m.Escolarida),Estudios.Descripcio,"")
*
SELECT Detencio
SET ORDER TO TAG NumControl
IF SEEK(m.NumControl)
SCATTER MEMVAR MEMO
*
%0
Aquí está en código:
THISFORM.CatDetenidos
*
IF LASTKEY() = 23
select &CatDet
m.NumExp = NumExp
m.NumControl = NumControl
*
SELECT Detenido
SET ORDER TO TAG NumExp
IF SEEK(m.NumExp)
SCATTER MEMVAR MEMO
*
SELECT Colonias
SET ORDER TO TAG Clave
m.ColoniaDesc = IIF(SEEK(m.Colonia),Colonias.Descripcio,"")
*
SELECT Ciudades
SET ORDER TO TAG Clave
IF SEEK(m.Originario)
m.OrigenDesc=Alltrim(Ciudades.Descripcio)
m.Estado=Ciudades.Estado
SELECT Estados
SET ORDER TO TAG CLAVE
m.EstadoDesc=IIF(SEEK(M.ESTADO),Alltrim(Estados.Descripcio),"")
ELSE
m.OrigenDesc=""
ENDIF
*
SELECT Profesio
SET ORDER TO TAG Clave
m.OcupaDesc=IIF(SEEK(m.Ocupacion),Profesio.Descripcio,"")
*
SELECT EDOCIVIL
SET ORDER TO TAG CLAVE
m.EdoCivilDesc=IIF(SEEK(m.edocivil),Edocivil.Descripcio,"")
*
SELECT Estudios
SET ORDER TO TAG Clave
m.Estudios = IIF(SEEK(m.Escolarida),Estudios.Descripcio,"")
*
SELECT Detencio
SET ORDER TO TAG NumControl
IF SEEK(m.NumControl)
SCATTER MEMVAR MEMO
*
%0
Valora esta pregunta


0