Ayuda urgente con el GRID
Publicado por Danny (2 intervenciones) el 11/06/2002 23:17:50
Hola y gracias de antemano, mi prob es el sig. En un grid despliego los datos almacenados en una tabla. Al momento de selecionar una fila de datos para que se despliegue en un formulario siempre se despliega el primero que di de alta. Si borro ese, se depliega el segundo que di de alta, sin importar cual selecciono. Este es el codigo:
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)
SCAT
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)
SCAT
Valora esta pregunta
0