Dica Iniciar combo-box com valor.

Boa noite.

Pessoal estou com o seguinte problema. Criei um combo-box dinamico onde alimento o mesmo com dados da tabela, porém quando o combo inicia ele vem em branco, e quando clicado na seta aparece todos os resultados.

Então queria saber se tem como iniciar o combo-box com o primeiro item da lista, tem como ?

Código:

def var v-cont as int init 1.

v-campo:delete(v-campo:list-item-pairs) no-error.
v-campo:list-item-pairs  =  "," .
v-campo:delete("").


if v-cont > 1 then do:
      v-campo:ADD-LAST(campo.a, campo.b).
end.
else do:
      v-campo:add-first(campo.a, campo.b).
      v-cont = 2.
end.
v-campo:INNER-LINES = 10.

Posicione o campo.b no primeiro item e faça:

Código:

ASSIGN v-campo:SCREEN-VALUE = campo.b.

obrigado.