DBLookupComboBox Yerine ComboBox

[Firarist]

Ustalar.
Master ve detail tablolarım var. Master daki başlıkları DBLookupComboBox ta gösteriyorum. Seçtiğim başlıklar DBGrid de gösteriliyor. Ancak DBLookupComboBox yerine ComboBox kullanmak ve seçtiğim kayıtları yine DBGrid de göstermek istiyorum.

procedure TForm1.FormShow(Sender: TObject);
begin
while not (AdoQuery1.Eof) do
begin
ComboBox1.Items.Add(AdoQuery1.FieldByName('Baslik').AsString);
AdoQuery1.Next;
end;

ile master tablonun kayitlarıni ComboBox ta gösteriyorum. ComboBox ın OnChange olayına nasıl bir kod yazmalıyım ki detail tablo kayıtlarını DBGrid de gösterilsin.

İlginize şimdiden teşekkürler. Acemilik işte:)

[husonet]

ilk önce DropDown eventinde dataset'i edit moduna alırsın.

Kod: Tümünü seç

procedure TCariHesapAcilisIslemFrm.DateTimePicker1DropDown(
  Sender: TObject);
begin
    DBGrid1.DataSource.Edit;
end;

Ordındanda OnChance eventinde mod'un edit olup olmadığını sorgular atama yaparsın

Kod: Tümünü seç

    
if DBGrid1.DataSource.State in [dsEdit, dsInsert] Then
        IBDataSet1CARI.Asstring := ComboBox1.Text;

Kolay Gelsin...

[husonet]

Bu Şekildede yapabilirsin.

Kod: Tümünü seç

procedure TCariHesapAcilisIslemFrm.ComboBox1Change(Sender: TObject);
begin
    DBGrid1.DataSource.Edit;
    IBDataSet1CARIKOD.AsString := ComboBox1.Text;

end;

Kolay Gelsin...

[Firarist]

Teşekkürler Husonet

Akşam ilk işim bu kodu denicem ne zamandır yapamadım bunu.

[Firarist]

Maalesef yukarıdaki ipuçları ile problemi halledemedim. Sanırım veritabanı olarak Access kullanmamdan dolayı kodlar farklılık gösteriyor.