st:=Tstringlist.Create;
       st.Delimiter:='|';
       st.DelimitedText:=trim(CheckListBox1.Items[CheckListBox1.itemindex]);
 adoquery2.SQL.Clear;
if(CheckListBox1.Checked[CheckListBox1.itemindex]=true)  then
 adoquery2.SQL.Add('update user_info set che_flag=1 WHERE 仪表档案编号='+st.Strings[1])
else
 adoquery2.SQL.Add('update user_info   set che_flag=0 WHERE 仪表档案编号='+st.Strings[1]); adoquery2.ExecSQL();提示仪表档案编号没默认值,是整数型。每分了  不好意思