Fórum RECUPERAR DADOS DO DB6 PARA COMOBOBOX #158965

var
Op1 : integer;
Opcao1 : integer;
Posicao1 : Integer;
Pos1 : integer;
Opca1 : integer;
Posic1 : integer;
begin
Op1 := -1;
Opcao1 := ComboDia.Items.IndexOf(IBQCliente.FieldByName(´Dia´).AsString);
If Opcao1 >= Op1 Then
ComboDia.ItemIndex := Opcao1;
Pos1 := -1;
Posicao1 := ComboMes.Items.IndexOf(IBQCliente.FieldByName(´Mes´).AsString);
If Posicao1 >= Pos1 then
ComboMes.itemIndex := Posicao1;
Opca1 := -1;
Posic1 := ComboAno.Items.IndexOf(IBQCliente.FieldByName(´Ano´).AsString);
If Posic1 >= Opca1 then
ComboAno.ItemIndex:= Posic1;
Somente o ano aparece no seu combobo correspondente. Agradeço que pude ajudar-me