a:=edit1.Text; case combobox1.Items of '统一编号' : sql:='select * from cms where id1 like %'+a+'%' '员工姓名' : sql:='select * from cms where username like %'+a+'%' '单位' : sql:='select * from cms where unit like %'+a+'%' end; adoquery1.Close; adoquery1.SQL.Clear; adoquery1.SQL.Add(sql); adoquery1.Open;
编译时出错 ordinal type required 请问我该如何修改
----------------------------------------------
-
case combobox1.Items of '统一编号' : sql:='select * from cms where id1 like %'+a+'%' '员工姓名' : sql:='select * from cms where username like %'+a+'%' '单位' : sql:='select * from cms where unit like %'+a+'%' end;
换成下面的:
case ComboBox1.ItemIndex of 0: sql:='select * from cms where id1 like %'+a+'%' 1: sql:='select * from cms where username like %'+a+'%' 2: sql:='select * from cms where unit like %'+a+'%' end;