代码这样的：
    if  not  tblanswer.Active  then
    tblanswer.Open;
    tblanswer.Locate('RQ;DEPTID',vararrayof([zxRQ,tdept]),[]);
    tblanswer.Insert;
    tblanswer.FieldByName('RQ').AsDateTime:=zxRQ;
    tblanswer.FieldByName('DEPTID').AsString:=tdept;
    tblanswer.FieldByName('XSJE').AsCurrency:=tXSJE;
    tblanswer.FieldByName('JC').AsInteger:=tJC;
    tblanswer.FieldByName('bshow').AsInteger:=0;
    tblanswer.Post;
  end;
运行的第四局时报错，，郁闷啊 。。。是在找不到原因、、、、求帮助！！！！我刚申请的号分不多……

函数的全部代码如下：
procedure  tblinsert(tdept:string;zxRQ:Tdatetime;tXSJE:currency;tJC:integer);
  begin
    if  not  tblanswer.Active  then
    tblanswer.Open;
    tblanswer.Locate('RQ;DEPTID',vararrayof([zxRQ,tdept]),[]);
    tblanswer.Insert;
    tblanswer.FieldByName('RQ').AsDateTime:=zxRQ;
    tblanswer.FieldByName('DEPTID').AsString:=tdept;
    tblanswer.FieldByName('XSJE').AsCurrency:=tXSJE;
    tblanswer.FieldByName('JC').AsInteger:=tJC;
    tblanswer.FieldByName('bshow').AsInteger:=0;
    tblanswer.Post;
  end;
调用函数的代码如下：
while  not  eof  do
         begin
            tblinsert(fieldbyname('DEPTID').AsString,fieldbyname('RQ').AsDateTime,fieldbyname('XSJE').AsCurrency,fieldbyname('JC').AsInteger);
            next;
         end;

求指导！！！！