lcHereIsAFreeEmptyString = thisform.LookUpAirPort(this.Value)

>IF LEN(ALLTRIM(this.Value)) == 3
>   thisform.LookUpAirPort(this.Value)
>ENDIF
>
>
>*** LookUpAirPort method of the form
>
>LPARAMETERS lcAirPort
>SEEK m.lcAirPort IN TableWithAirPorts ORDER AppropriateOrders
>thisform.LabelWithAirPortName.Caption = ALLTRIM(TableWithAirPorts.name)
>RETURN ""