DropDownListBox
Publicado por jk (10 intervenciones) el 25/04/2003 17:38:09
Estoy intentando mostrar los datos de una consulta en un listbox. el codigo que utilizo es el siguiente (con traza incluida):
FETCH cursor_titulos INTO : titulo_var ;
IF sqlca.sqlcode < 0 THEN
MessageBox("Error","El codigo de la distribuidora no existe."+ sqlca.sqlerrtext)
ELSE
DO WHILE sqlca.sqlcode = 0
MessageBox("Insertando"," **** ")
item=ddlb_titulo.additem(titulo_var)
MessageBox("ITEM"," Deberia insertar "+ ddlb_titulo.text(item))
FETCH cursor_titulos INTO :titulo_var;
LOOP
MessageBox("FIN"," Ya no quedan mas. SQLCODE = "+ string(sqlca.sqlcode))
ddlb_titulo.SetFocus()
END IF
Parece que funciona correctamente, me va saliendo en los messagebox lo que se supone que esta insertando en el el ddlb, pero cuando intento desplegar este, no me aparece nada. Tengo que llamar a alguna funcion de ddlb para que se muestren los datos una vez añadidos?
Gracias por vuestra ayuda!
FETCH cursor_titulos INTO : titulo_var ;
IF sqlca.sqlcode < 0 THEN
MessageBox("Error","El codigo de la distribuidora no existe."+ sqlca.sqlerrtext)
ELSE
DO WHILE sqlca.sqlcode = 0
MessageBox("Insertando"," **** ")
item=ddlb_titulo.additem(titulo_var)
MessageBox("ITEM"," Deberia insertar "+ ddlb_titulo.text(item))
FETCH cursor_titulos INTO :titulo_var;
LOOP
MessageBox("FIN"," Ya no quedan mas. SQLCODE = "+ string(sqlca.sqlcode))
ddlb_titulo.SetFocus()
END IF
Parece que funciona correctamente, me va saliendo en los messagebox lo que se supone que esta insertando en el el ddlb, pero cuando intento desplegar este, no me aparece nada. Tengo que llamar a alguna funcion de ddlb para que se muestren los datos una vez añadidos?
Gracias por vuestra ayuda!
Valora esta pregunta
0