ComboBox1.ItemIndex Olayı ?

[erdogan_ozkaya]

Arkadaşlar Aşağıdaki Kodun Daha Kolayı Varmı Acaba?

Kod: Tümünü seç

   if Data.FieldByName('Medeni_Durum').AsString='Evli'
   then Personel.ComboBox1.ItemIndex:=0; begin

   if Data.FieldByName('Medeni_Durum').AsString='Bekar'
   then Personel.ComboBox1.ItemIndex:=1; begin

   if Data.FieldByName('Medeni_Durum').AsString='Dul'
   then Personel.ComboBox1.ItemIndex:=2; begin

Teşekkürler.

[sabanakman]

Eğer Personel.ComboBox1 bileşeninizin Items özelliğinde de bu alanla aynı şekilde Evli-Bekar-Dul değerleri ile doluysa

Kod: Tümünü seç

Personel.ComboBox1.ItemIndex:=Personel.ComboBox1.Items.IndexOf(Data.FieldByName('Medeni_Durum').AsString)

kodu işinize yarayacaktır.

[erdogan_ozkaya]

hocam merhaba,

bunun DBLookupCombobox1 olanını nasıl yapabilirim ?

teşekkürler

[sabanakman]

Kod: Tümünü seç

DBLookupComboBox1.Field.Value:=
 DBLookupComboBox1.ListSource.DataSet.Lookup(DBLookupComboBox1.ListField,
  'AranacakDeğer',
   DBLookupComboBox1.KeyField)

[erdogan_ozkaya]

Hocam bu şekilde mi olmalı ?

Kod: Tümünü seç

BORC_ALACAK_FISI.DBLookupComboBox1.Field.Value:=BORC_ALACAK_FISI.DBLookupComboBox1.ListSource.DataSet.Lookup(BORC_ALACAK_FISI.DBLookupComboBox1.ListField,'Para_Birimi',BORC_ALACAK_FISI.DBLookupComboBox1.KeyField);