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ı'
ComboBox1 İçin;
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
---------------------------
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
---------------------------