irgendwie habe ich ein Brett vor dem Kopf. Ich schaffe es nicht eine Auswahl in einer Combobox anzuzeigen. Sie bleibt leer.
Code: Alles auswählen
LOCAL aArray := {}
LOCAL cField := Space(50)
LOCAL getlist := {}
LOCAL GetOptions
LOCAL nBreite := 320
LOCAL nHoehe := 440
LOCAL oDialog := NIL
LOCAL obox := NIL
DO WHILE ! (nArea)->(Eof())
AAdd(aArray,(nArea)->feld1
(nArea)->(DbSkip())
ENDDO
//------------------------------------------------------------------------------
@ 15,50 DCCOMBOBOX cField;
LIST aArray;
OBJECT obox;
SIZE 150,20
//------------------------------------------------------------------------------
DCGETOPTIONS;
BORDER XBPDLG_SIZEBORDER;
PIXEL;
WINDOWHEIGHT nHoehe;
WINDOWWIDTH nBreite
DCREAD GUI;
OPTIONS GetOptions;
PARENT @oDialog;
TITLE "Test"