no se puede tener acceso a la tabla seleccionada
Publicado por luis nelson valdez (2 intervenciones) el 12/06/2007 14:55:04
hola amigos: estoy teniendo problemas para abrir las tablas,o sea tengo en un formulario CON (2) textbox y (2) list,para realizar la busqueda,al introducir en el primer texbox se depliega el listado,es para buscar los datos de doctores qu tengo registrado en una tabla de "DOCTORES" para la atencion,y selecciono en la lista,lo mismo lo hago en el segundo texbox,para buscar los datos de los pacientes afiliados,hasta ahi todo ok,pero cuando vuelvo a abrir para buscar otro doctOR me salta el error"NO SE PUEDE ACCEDER A LA TABLA SELECCIONADA"
estas son mis sentencia
en el texbox (interactivechange)
select DISTINCT apellido,especialidad,iddoc from doctores;
where alltrim(THIS.VALUE) $ apellido;
order by apellido;
into cursor resultado
WITH THISFORM
.LIST1.VISIBLE=.T.
.List1.rowsource="resultado.apellido"
.refresh
ENDWITH
en la list ( click)
WITH THISFORM
.tXTapellido.Value = RESULTADO.apellido
.TXTespecialidad.VALUE=RESULTADO.especialidad
.txtiddoc.value=resultado.iddoc
.LIST1.VISIBLE=.F.
.TEXT1.VISIBLE=.F.
.CMDIMPRIMIRCON.ENABLED=.T.
.CMDMODIFICAR.ENABLED=.T.
.CMDGRABAR.ENABLED=.F.
.CMDAGREGAR.ENABLED=.T.
.cmdagregar.setfocus
**._cargargrilla(resultado.iddoc)
RELEASE POPUP
.REFRESH
ENDWITH
desde ya muchas gracias
estas son mis sentencia
en el texbox (interactivechange)
select DISTINCT apellido,especialidad,iddoc from doctores;
where alltrim(THIS.VALUE) $ apellido;
order by apellido;
into cursor resultado
WITH THISFORM
.LIST1.VISIBLE=.T.
.List1.rowsource="resultado.apellido"
.refresh
ENDWITH
en la list ( click)
WITH THISFORM
.tXTapellido.Value = RESULTADO.apellido
.TXTespecialidad.VALUE=RESULTADO.especialidad
.txtiddoc.value=resultado.iddoc
.LIST1.VISIBLE=.F.
.TEXT1.VISIBLE=.F.
.CMDIMPRIMIRCON.ENABLED=.T.
.CMDMODIFICAR.ENABLED=.T.
.CMDGRABAR.ENABLED=.F.
.CMDAGREGAR.ENABLED=.T.
.cmdagregar.setfocus
**._cargargrilla(resultado.iddoc)
RELEASE POPUP
.REFRESH
ENDWITH
desde ya muchas gracias
Valora esta pregunta
0