PROCEDURE INIT This.AddProperty("a_Data[1,2]", "") This.Requery ENDPROC PROCEDURE REQUERY LOCAL lc_WasControlSource, ln_Select With This *-- Important! remove the Controlsource *-- while doing this lc_WasControlSource = .ControlSource .ControlSource = "" select * ; from <Alias> ; into array .a_Data *-- Optional some stuff like this *-- You will off course need the *-- Properties for that if You want *-- to use it if .l_KeineAuswahl *// Gibt es auch die Option "Keine Auswahl", dann *// zusätzlichen Satz hinzufügen dimension .a_Data[alen(.a_Data, 1)+1, 2] .a_Data[alen(.a_Data, 1), 1] = .c_KeineAuswahl .a_Data[alen(.a_Data, 1), 2] = .c_ValueKeineAuswahl ln_Select = .ListCount else ln_Select = iif(.ListCount > 0, 1, .ListCount) endif *-- eof optional .RowSourceType = 5 && Array .RowSource = "This.a_Data" .BoundColumn = 2 .BoundTo = .T. .ListIndex = ln_Select .ControlSource = lc_WasControlSource endwith ENDPROCHTH