Ich lerne Xbase++ gerade und weiß nicht weiter:
Es soll der Inhalt einer dbf (UserID und UserName) in eine ComboBox eingelesen werden, um einen Wert : UserID nach der Auswahl in der Combobox in einer Variable zu speichern.
Code: Alles auswählen
function user()
local aUser := {}, ni
FIELD USERID, USERNAME, ACTIVE
dbGoTop()
do while ! Eof()
if sUser->ACTIVE
ni := aScan(aUser, {|a| a = Str(sUser->USERID) })
if ni == 0
aAdd(aUser, Str(sUser->USERID) + " " + sUser->USERNAME)
endif
endif
DbSkip()
enddo
return aUser
Gruß
Martin