Combo-Box

Discussão em 'Progress 4GL' iniciado por demetriusbarbosa, Julho 26, 2010.

  1. demetriusbarbosa

    demetriusbarbosa Membro Participativo

    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:
        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.
    
  2. Rogerio

    Rogerio Moderator Moderador Equipe de Suporte

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

    demetriusbarbosa Membro Participativo

    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:
        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.
  4. Rogerio

    Rogerio Moderator Moderador Equipe de Suporte

    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.

Compartilhe esta Página