tcombobox
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.
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
Curtidas 0
Respostas
Eixox
26/12/2005
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;
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;
GOSTEI 0
Carlosberga
26/12/2005
agora dá o seguinte erro:
´Unable to insert a line´
carlosberga
´Unable to insert a line´
carlosberga
GOSTEI 0
Eixox
26/12/2005
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;
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;
GOSTEI 0