怎么解决delphi中出错提示应用程序在当前操作中使用了错误类型的值

sql.Add('Insert into AppealDestineInfo(AppeDestId,AgentId,AppeDestUID,AppeDestName,Phone,WorkPlace,AppeOrDest,Description,bsdi,'
           + 'Judgement,AppeDestDate,StatisticType,DepartmentId,DepartmentName,ProcessId,ProcessDate,Ext,State,source,bsdi)');
         sql.Add('Values(:AppeDestId,:AgentId,:AppeDestUID,:AppeDestName,:Phone,:WorkPlace,:AppeOrDest,:Description,:Judgement,'
           +':AppeDestDate,:StatisticType,:DepartmentId,:DepartmentName,:ProcessId,:ProcessDate,:Ext,:State,:source,:bsdi)');
         parameters.ParamByName('AppeDestId').Value := FlowNo;
         parameters.ParamByName('AgentId').Value := fmLogin.AgentId;
         Parameters.ParamByName('AppeDestUID').Value := Trim(fmAgentMain.edtCustPerAcut.Text);
         Parameters.ParamByName('AppeDestName').Value := Trim(edtReferName.Text);
         Parameters.ParamByName('Phone').Value := Trim(edtReferCallNo.Text);
         Parameters.ParamByName('WorkPlace').Value := Trim(edtReferWorkPlace.Text);
         parameters.ParamByName('AppeOrDest').Value := '5';
         parameters.ParamByName('Description').Value := mmoSheetDesc.Text;
         parameters.ParamByName('Judgement').Value := mmoJudgement.Text;
         parameters.ParamByName('AppeDestDate').Value := AcceptDate;
         Parameters.ParamByName('StatisticType').Value := cmbReferType.Value;
         parameters.ParamByName('DepartmentId').Value := '00;
         Parameters.ParamByName('DepartmentName').Value := '座席组';
         Parameters.ParamByName('ProcessId').Value := fmLogin.AgentId;
         Parameters.ParamByName('ProcessDate').Value := ProcessDate;
         Parameters.ParamByName('Ext').Value := fmLogin.PhoneCode;
         parameters.ParamByName('State').Value := '2';
         parameters.ParamByName('Source').Value := '0';
         Parameters.ParamByName('bsdi').Value :=myd.Value;
可运行到  parameters.ParamByName('DepartmentId').Value := '00;,提示说"应用程序在当前操作中使用了错误类型的值,不知道错误在哪里,大家帮帮忙!!万分感谢!!! 

3 个解决方案

#1

parameters.ParamByName('DepartmentId').Value := '00;
字符串少了‘号，改成：
parameters.ParamByName('DepartmentId').Value := '00';

#2

少单引号，这哥们比较粗心！

#3

是的哦，谢谢你 啊