TComboBox carga lo que quiere
Bueno, me pasa algo con un TComboBox que no me pasa en otras partes del programa pero en particular esta es que en una parte del programa cargo un pasajero el cual tiene un pais, al TComboBox lo cargo desde una tabla donde tengo los paises.
con:
FData.QAux2.SQL.Clear;
FData.QAux2.SQL.Add('Select * From tpais');
FData.QAux2.Open;
// CARGO EL CAMPO DE PAIS
ModificaPais.Clear;
ModificaPais.Items.Add('Seleccione Pais'); //Este lo agrego para que me ocupe el 0 en el ComboBox
y mantenga concordancia con la tabla
FData.QAux2.First;
While Not FData.QAux2.Eof Do // Realizar mientras no sea fin de archivo
Begin
ModificaPais.Items.Add(FData.QAux2.FieldByName('PAIS').Value);
FData.QAux2.Next;
End;
//ModificaPais.Text := FData.QAux.FieldByName('PAIS').Value;
ModificaPais.ItemIndex := PaisID; // - 1;
|