Hi

Maybe this helps you

Code:
Procedure Combo_Fill_List
    Integer iFim

    Clear MyFile
    Repeat
        Find Gt MyFile By 3
        If (found) Begin
            Send Combo_Add_Item (Trim(MyFile.Description))
            Set Aux_Value Of (Combo_Data_Object(Self)) Item (Combo_Item_Count(Self)-1) To MyFile.ID
        End
        Else Move 1 To iFim
    Until (iFim)
End_Procedure // Combo_Fill_List

Procedure OnChange
    Integer iItem iID

    Forward Send OnChange

    Get Combo_Item_Matching (Value(Self,0))               To iItem
    Get Aux_Value Of (Combo_Data_Object(Self)) Item iItem To iID

    Set piMyFileID to iID
End_Procedure // OnChange
Regards