Llenar un COMBO BOX a partir de una Tabla

He aqui un ejemplo practico:


//Llenar el Combo...

&Cliente.Clear()
&Cliente.AddItem (0, 'TODOS')

For Each Order EmpCod, CliDes
Where EmpCod = &EmpCod
Defined By CliSig
&Msg = Trim(CliDes)
&Cliente.Additem (CliNum, &Msg)
EndFor

&Cliente = 0