PARA MARCELO.C RECUPERAR DADOS DO IB6 PARA COMBOBOXES

Delphi

09/05/2003

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 := ComboMes.Items.IndexOf(IBQCliente.FieldByName(´Ano´).AsString);
If Posic1 >= Opca1 then
ComboAno.ItemIndex:= Posic1;
por que não aparece o dado no combobox quando quero recuperar os dados do banco de dados interbase. Os campos da tabela são char


Oziasl

Oziasl

Curtidas 0

Respostas

Crash

Crash

09/05/2003

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 := ComboMes.Items.IndexOf(IBQCliente.FieldByName(´Ano´).AsString); If Posic1 >= Opca1 then ComboAno.ItemIndex:= Posic1; por que não aparece o dado no combobox quando quero recuperar os dados do banco de dados interbase. Os campos da tabela são char


No lugar de Items.IndexOf, use ItemIndex. Ex:

ComboBox.ItemIndex:= Valor Inteiro;

t+


GOSTEI 0
POSTAR