Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
DBGrid1 de Filitre uygulamak.
#1
Arkadaşlar, İyi Bayramlar. 
DBGrid1 de ki verileri DURUM alanını filtre etmek istiyorum.

Edit6.Text ve ComboBox1 ile yapmak istedim olmadı. Yardımcı olabilecekmisiniz?

DURUM = 'Aktarıldı' , 'Aktarılmadı'

procedure TForm29.Edit6Exit(Sender: TObject);
begin
if Trim(Edit6.Text) <> '' Then
 begin
   FaturaListe.Filtered := False;
   FaturaListe.FilterOptions := [foCaseInsensitive];
//   FaturaListe.Filter := 'DURUM like ' +#39+''+Edit6.Text+''+#39+' ';
   FaturaListe.Filter := 'DURUM=' + QuotedStr(Edit6.Text + '*');
   FaturaListe.Filtered := True;
 end
 else
 begin
   FaturaListe.Filtered := False;
   FaturaListe.Next;
   FaturaListe.Edit;
 end;
end;

ComboBox1 İçin;

procedure TForm29.DurumTipiClick(Sender: TObject);
begin
if (DBGrid1.Fields[6].AsString='Aktarildi')
    then
        begin
FaturaListe.FilterOptions:=[foCaseInsensitive];
FaturaListe.Locate('FISNO',DurumTipi.Items.Text,[loPartialKey,loCaseInsensitive]);

FaturaListe.Filtered:=true;
 end;
end;

her ikisinde de bu hatayı veriyor;
---------------------------
Debugger Exception Notification
---------------------------
Project MENU.exe raised exception class EDatabaseError with message 'FilterOptions are not supported'. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help   
---------------------------


Ek Dosyalar Resimler
   
Cevapla
#2
Arkadaşlar Merhaba; Herkese İyi bayramlar; Ben sorunumu bu şekilde çözdüm belki işine yaracak biri olur. Kod Şu şekilde;

var
DurumTipiSec : string;
begin
 if DurumTipi.ItemIndex <> -1 then
                            DurumTipiSec := DurumTipi.Items[DurumTipi.ItemIndex];
                         if DurumTipiSec = 'Aktarildi' then
                         Begin
  FaturaListe.Filter := 'Durum Like '+ QuotedStr('Aktarildi');
  FaturaListe.Filtered := True;
end;
                         if DurumTipiSec = 'Aktarilmadi' then
                         Begin
  FaturaListe.Filter := 'Durum Like '+ QuotedStr('Aktarilmadi');
  FaturaListe.Filtered := True;
  end;

                          if DurumTipiSec = 'Hepsi' then
                         Begin
//  FaturaListe.Filter := 'Durum Like '+ QuotedStr('');
  FaturaListe.Filtered := False;
end;
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  DBGrid1'deki Verileri Tabloya Aktarma OZCANK 11 4.916 28-09-2022, Saat: 15:49
Son Yorum: OZCANK
  CSV Dosyasını DBGrid1 Aktarmak OZCANK 14 3.480 04-06-2022, Saat: 04:16
Son Yorum: OZCANK
  DBGrid1 de Alta Boşluk Eklemek OZCANK 21 4.649 30-04-2022, Saat: 13:06
Son Yorum: OZCANK
  DBGrid1 Ondalık Ayırma OZCANK 9 3.815 20-11-2020, Saat: 13:10
Son Yorum: OZCANK
  DBGrid1 Alt Satıra İnmek OZCANK 19 8.710 11-04-2020, Saat: 22:58
Son Yorum: uparlayan



Konuyu Okuyanlar: 1 Ziyaretçi