tcombobox

26/12/2005

Olá Pessoal,

Como faço para preencher um TCombox com itens de uma tabela.
por exemplo:

Tenho uma tabela onde cadastro o nome de advogados.
Quero selecionar através da combo o nome relativo a um processo no form processos, tentei isto mas deu erro

No evento activate do form:

TBAdv.open;
ComboAdv.clear;
While not TBAdv.enof do
begin;
ComboAdv.Additem(TBAdv nome.text);aqui da erro de parametro.
end;

espero ter sido entendido.
grato a todos
Carlos.


Carlosberga

Respostas

26/12/2005

Eixox

TBAdv.open;

ComboBox1.Items.Clear;

While not TBAdv.enof do
begin;
[b:fba314f3de][u:fba314f3de]ComboBox1.Items.Add[/u:fba314f3de][/b:fba314f3de](TBAdvCampo.Value);

//Se o campos for diferente de string- você deve convertê-lo para tal

end;


Responder Citar

26/12/2005

Carlosberga

agora dá o seguinte erro:
´Unable to insert a line´
carlosberga


Responder Citar

26/12/2005

Eixox

Veja que o código inteiro seria mais ou menos isso:


ComboBox1.Items.Clear;
try
if TBAdv.Active = false then TABdv.Active := True;

TBAdv.First;
While not TBAdv.Eof do
begin
ComboBox1.Items.Add(TBAdvNomeDoCampo.Value);
//tem que ser um string;
TBAdv.Next;
end;
finally
TBAdv.Active := false;
end;


Responder Citar