[ epehlic @ 15.03.2005. 20:23 ] @
| 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. |