Como cargar un ddlb en un ciclo

Debes crear una función y en ella crear un cursor

Pasar a la función la identificación del usuario loguado ej: l_usu

Ej: del cursor para cargar la ddlb

String s_materia
s_materia=""
setpointer(Hourglass!)
DECLARE T_Cursor CURSOR FOR

Select descripción from Materias where id_usuario= :l_usu;
OPEN T_Cursor ;
if SQLCA.SQLCode = -1 then
messagebox("SQL Error",String(SQLCA.SQLDBCode) + " : " + SQLCA.SQLErrText)
else
s_materia = ""
Do
if s_materia <> "" then ddlb_1.Additem(s_materia)

FETCH T_Cursor INTO :s_nmateria;
loop while SQLCA.SQLCode = 0
if SQLCA.SQLCode = -1 then
messagebox("SQL Error",String(SQLCA.SQLDBCode) + " : " + SQLCA.SQLErrText)
end if
end if
setpointer(arrow!)
CLOSE T_Cursor;