Popular um ComboBox

Boa Tarde
Como faço para popular um ComboBox com informações de um Campo de uma determinada Tabela?

Algo assim:

Isto é para uma selection-list, mas a lógica é a mesma.

Código:

/*------------------------------------------------------------------------------
  Purpose: CARREGA A selfamartigos E SELECCIONA-A TODA
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/
do with frame frmbase:
                                                                   
    def var x-descr as char.
    def var x-lista as char.
    
    /* FOR EACH */
    
    for each ht_tiposartigo no-lock.
                                        
        x-descr = ht_tiposartigo.chave + " - " +  ht_tiposartigo.nome_tiposartigo.

        /* -- */

        if x-lista = "" then x-lista = x-descr.
                        else x-lista = x-lista + "," + x-descr.
    end.

    /* -- */
    
    selFamArtigos:list-items = x-lista.
    selFamArtigos:screen-value = selFamArtigos:list-items.
    selFamArtigos:scroll-to-item(1).
        
end.
END PROCEDURE.

Você pode fazer assim....

FOR EACH MotivoCliEspecial:
cb-motivo-cli-esp:add-first(MotivoCliEspecial.mce-descricao).
cb-motivo-cli-esp:screen-value = cb-motivo-cli-esp:entry(1) no-error.
end.

Bom dia
Onde devo inserir esse código? Evento de qual objeto?

Num procedimento.

Depois mete o RUN no MAIN-BLOCK.

Como faço para limpar um ComboBox para popular ele com outra tabela?

Att,

Diogo