Fórum Combobox no delphi em tempo de execução #620300
26/07/2023
0
Pessoal agradeço desde já pela ajuda.
Estou a dias tentando resolver uma situação que me parece muito simpels, mas o fato é que não estou conseguindo se alguém puder me ajudar.
Estou trabalhando em um aplicativo onde existe apenas uma procedure para insert ou update ou seja se o id e null insert se existe um id update até aqui tudo certo. O problema se da no preenchimento dos combobox para update pois eles precisam aparecer ja com os dados carregados do banco.
Esse código funciona para o primeiro combo mas inexplicavelmente nao funciona para o segunto combo que seria o cbbEmpresaId . Eu preciso pegar o Id da tabela e não o itemindex pois como é uma tabela grande se pula um numero de id causará erro. Se alguem puder me ajudar agradeço demais.
Estou a dias tentando resolver uma situação que me parece muito simpels, mas o fato é que não estou conseguindo se alguém puder me ajudar.
Estou trabalhando em um aplicativo onde existe apenas uma procedure para insert ou update ou seja se o id e null insert se existe um id update até aqui tudo certo. O problema se da no preenchimento dos combobox para update pois eles precisam aparecer ja com os dados carregados do banco.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | with Dm . cdsListaCategoria do begin // vCategoriaId := 0; Close; Open; cbbCategoria . Items . Clear; First; while not Eof do begin cbbCategoria . Items . AddObject(FieldByName( 'descricao' ).AsString, TObject(FieldByName( 'id' ).AsInteger)); Next; end ; end ; Dm . cdsListaCategoria . Free ; end ; //////////////////////////codigo do evento onchange do combobox vCategoriaOId := Integer (cbbCategoria . Items . Objects[cbbCategoria . ItemIndex]); |
Esse código funciona para o primeiro combo mas inexplicavelmente nao funciona para o segunto combo que seria o cbbEmpresaId . Eu preciso pegar o Id da tabela e não o itemindex pois como é uma tabela grande se pula um numero de id causará erro. Se alguem puder me ajudar agradeço demais.

Carlos Faria
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)