CREATE CURSOR Customer (Company C(20), Country N(3))
FOR asd = 1 TO 10
    INSERT INTO Customer VALUES ("Company"+TRANSFORM(asd), asd)
NEXT
CREATE CURSOR Country (cntrName C(20), Country N(3))
FOR asd = 1 TO 10
    INSERT INTO Country VALUES ("Country"+TRANSFORM(asd), asd)
NEXT

mForm = CREATEOBJECT("Form1")
mForm.Show(2)
READ EVENTS




DEFINE CLASS form1 AS form
    DoCreate = .T.
    Caption = "Form1"
    Name = "Form1"

    ADD OBJECT list1 AS listbox WITH ;
        BoundColumn = 1, ;
        ColumnCount = 2, ;
        ColumnWidths = "150", ;
        RowSourceType = 6, ;
        RowSource = "customer.company,country", ;
        Height = 121, ;
        Left = 75, ;
        Top = 87, ;
        Width = 258, ;
        Name = "List1"


    ADD OBJECT combo1 AS combobox WITH ;
        RowSourceType = 6, ;
        RowSource = "country.cntrName, country", ;
        BoundColumn=2,;
        BoundTo=.t.,;
        Height = 24, ;
        Left = 76, ;
        Top = 25, ;
        Width = 220, ;
        Name = "Combo1"


    PROCEDURE combo1.Valid
        LOCAL lcFilter
        SELECT Customer
        lcFilter = [country = ] + ALLTRIM( this.Value  )
        SET FILTER TO &lcFilter
        GO TOP
        Thisform.List1.Requery()
    ENDPROC

    PROCEDURE Destroy
         CLEAR EVENTS
    ENDPROC

ENDDEFINE