arama sonrası bilgiler gelmiyor

[mkokluce]

[procedure TForm5.Edit1Change(Sender: TObject);
begin
Datamodule1.Bilgi.Active:=false;
Datamodule1.Bilgi.FilterOptions:=[foCaseInsensitive]; //harf duyarliligi yok
Datamodule1.Bilgi.Filter:='Adisoyadi='+QuotedStr(edit1.text+'*'); //Ada Göre Arama kriteri
Datamodule1.Bilgi.Filtered:=true; // Aramayi Baslat
Datamodule1.Bilgi.Open;]

[Bu kod ile arama sonrası edit içindeki arama bilgilerini temizlediğim zaman dbgridde bulunan bütün kayıtlar geri gelmiyor.ne yaptıysam olmadı yardımlarınızı bekliyorum.

[Glen]

Merhaba,

Filtered := False; haline getirirseniz tüm kayitlar gelecektir.

Kolay gelsin.

[conari]

Merhaba,

Filtered := False; haline getirirseniz tüm kayitlar gelecektir.

Kolay gelsin.

+1 veya

Kod: Tümünü seç

Datamodule1.Bilgi.Refresh

[mkokluce]

sağolun arkadaşlar ama bunların hepsini denedim ama olmuyor ince bir ayrıntıyı atlıyorum galiba....
ama nerede...?

[White Rose]

birde şöyle deneyin

If Edit1.text<>'' Then begin
Datamodule1.Bilgi.Filter:='Adisoyadi='+QuotedStr (edit1.text+'*');
Datamodule1.Bilgi.Filtered:=True;
end else begin
Datamodule1.Bilgi.Filter:='';
Datamodule1.Bilgi.Filtered:=False;
end;

[mkokluce]

teşekkürler white rose sorun çözüldü. Sayenizde.