Question

delphi7提示应用程序在当前操作中使用了错误类型的值。。急求

代码如下：
procedure TForm3.BitBtn1Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('insert into tb_in(goodsID,purchaserID,indate,number,adminID,storehouseID) values(:gID,:pID,:Idate,:num,:aID,:sID)');
ADOQuery1.Parameters.ParamByName('gID').Value:=trim(edit1.Text);
ADOQuery1.Parameters.ParamByName('pID').Value:=trim(Edit2.Text);
ADOQuery1.Parameters.ParamByName('Idate').Value:=trim(DateTimePicker1.Format);
ADOQuery1.Parameters.ParamByName('num').Value:=trim(Edit3.Text);
ADOQuery1.Parameters.ParamByName('aID').Value:=trim(edit4.Text);
ADOQuery1.Parameters.ParamByName('sID').Value:=trim(edit5.Text);
ADOQuery1.Open;
到ADOQuery1.Parameters.ParamByName('num').Value:=trim(Edit3.Text); 那一步就会停下来出错。。好烦啊
数据表结构除了indate是datetime型 其他都是varchar

Answer 1

//这一句
ADOQuery1.Parameters.ParamByName('Idate').Value:=trim(DateTimePicker1.Format);

// 先用
ADOQuery1.Parameters.ParamByName('Idate').Value:=Date;
//替代，如果不会错的话 trim(DateTimePicker1.Format)的取法你需要再做调整