Problem sa filtriranjem
U cemu je problem u sljedecem codu?
Kad u comboxu izaberem filtriranje po svim poljima (ItemIndex =0) i nakon unosa u edit1 5 znakova
(npr. pet prvi slova prezimena ili pet prvi brojeva JMBG) izbaci mi grešku:
"Project Name.exe raised exception class EDBengineError with message 'Operation not applicable.'.
Process stopped. Use Step or Run to continue.
A kad izaberem odredjeno polje u comboboxu pojedinacno (ItemIndex = 1ili 2 itd.) radi bez problema
A kod je:
procedure TClanoviF.Edit1Change(Sender: TObject);
begin
if combobox1.ItemIndex = 0 then
Table1.Filter:='Ime='''+Edit1.text+'*''' +'OR Rb='''+Edit1.text+'*'''
+'OR Prezime='''+Edit1.text+'*''' + 'OR JMBG='''+Edit1.text+'*'''
+'OR Broj_LK='''+Edit1.text+'*''';
if combobox1.ItemIndex = 1 then
Table1.Filter:='Rb='''+Edit1.text+'*''';
if combobox1.ItemIndex = 2 then
Table1.Filter:='Ime='''+Edit1.text+'*''';
if combobox1.ItemIndex = 3 then
Table1.Filter:='Prezime='''+Edit1.text+'*''';
if combobox1.ItemIndex = 4 then
Table1.Filter:='JMBG='''+Edit1.text+'*''';
if combobox1.ItemIndex = 5 then
Table1.Filter:='Broj_LK='''+Edit1.text+'*''';
end;
Hvala.
 |  |
 |
