怎么解决delphi中出错提示应用程序在当前操作中使用了错误类型的值
志的世界 2012-12-27 03:03:02 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;,提示说"应用程序在当前操作中使用了错误类型的值,不知道错误在哪里,大家帮帮忙!!万分感谢!!!