Combobox no delphi em tempo de execução
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.
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
Curtidas 0