Fórum PARA MARCELO.C RECUPERAR DADOS DO IB6 PARA COMBOBOXES #158884
09/05/2003
0
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
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
Curtir tópico
+ 0
Responder
Posts
09/05/2003
Crash
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+
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)