Combo-Box

[demetriusbarbosa]

Boa tarde pessoal.
Estou utilizando um combo-box para receber informações de uma tabela, mas quando realizo uma alteração em algum registro as informações no combo não são atualizadas. Elas somente são atualizadas quando fecho e reabro a aplicação.
Alguém sabe como posso limpar o combo e recarregar as informações.

Utilizo o seguinte código para preencher o combo-box:

Código: Selecionar todos

    cbfuncionario:ADD-LAST("").

    FOR EACH bc_coletores WHERE bc_coletores.ativo = YES AND bc_coletores.setor = "Expedição" NO-LOCK USE-INDEX bc_colet7:
        cbfuncionario:ADD-LAST(bc_coletores.nome_funcionario).
    END.


[Rogerio]

Voce utiliza esse codigo que postou apos cada evento de atualização de suas informações

[demetriusbarbosa]

Olá Rogério.
Esse código é usado após o carregamento do programa.
Obrigado pela atenção, mas consegui resolver o problema.

Coloquei o seguinte código no evento ENTRY do Combo-Box?

Código: Selecionar todos

    cbfuncionario:LIST-ITEMS = "".

    cbfuncionario:ADD-LAST("").

    FOR EACH bc_coletores WHERE bc_coletores.ativo = YES AND bc_coletores.setor = "Expedição" NO-LOCK USE-INDEX bc_colet7:
        cbfuncionario:ADD-LAST(bc_coletores.nome_funcionario).
    END.


Obrigado.

[Rogerio]

Se assim funcionou tudo bem, mas colocar esse codigo no ENTRY naum seria muito viavel, pois se naum toda vez que entrar no combo executara esse codigo, podendo trazer lentidao ao programa e a rede tambem, é claro, isso dependendo da sua base.