Problema para cargar un combobox con un cursor

Hola, mi problema es el siguiente, tengo q cargar en un formulario un combo con ciudades, para esto tengo un metodo en una clase ciudadesDatos q me devuelve un cursor con todas las ciudades :
FUNCTION buscarCiudades()
IF !USED("ciudad")
USE ciudad IN 0 SHARED
ENDIF
SELECT *;
FROM ciudad INTO CURSOR cCiudad
IF _tally = 1
resp = 'cCiudad'
ELSE
resp = null
ENDIF
USE IN ciudad
RETURN resp
ENDFUNC
en el formulario en el init pongo
ciu = NEWOBJECT("ciudadNegocio", "classCiudad.prg")
ciud = ciu.buscarCiudades()
y en un metodo llenarfourmulario pongo
SELECT ciud
LOCATE FOR id_ciudad = thisform.obj.id_ciudad_d &&para pocicionarlo en && un registro seleccionado
thisform.combo_destino.ControlSource = ciud
thisform.combo_destino.RowSource = ciud.id_ciudad
thisform.combo_destino.Refresh()
el problema es q no me carga nada, como si el cursor estuviese vacio..
Gracias!!

1 Respuesta

Respuesta
-1
Dime algo, ¿has usado antes ese codigo o es primera vez que lo usas? Porque en lo personal haria todo eso pero no en una clase sino el evento load de un form y cargaria las ciudades y de hecho ahi podrias verificar si te devuelve un cursor vacio o no

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas