【搞定】dataset.insert代码异常[请求]**

ccyy0112

procedure TGZHZMXB.Button1Click(Sender: TObject);
var bm,n,y,s2:string;
    rs:integer;
    jbgz,jbjj,xj,jk,sk,sk1,slouble;
    date:TDate;
    year,month,d2,d3:integer;
begin
     bm := '';  //部门
     rs := 0;   //人数
     jbgz :=0;  //基本工资
     jbjj :=0;  //基本奖金
     xj :=0;    //小计
     jk :=0;  //基险个扣
     sk :=0;    //失扣
     sk1 :=0;   //税扣
     sl :=0;    //实领
     date:=business.Data.SysSrv.SysService.Time;
     month := Business.System.DateUtils.MonthOf(date);
     s2 :=  sysutils.IntToStr(month);
     d2 :=  sysutils.StrToInt(s2);
     //d3 := d2-1;
     datasetbroker1.DataSet.Open;
     datasetbroker2.DataSet.Open;


     datasetbroker2.DataSet.First;
     while not datasetbroker2.DataSet.Eof do
     begin
          if(datasetbroker2.DataSet.FieldByName('y').AsFloat = d2)  then
          begin
              bm :=  datasetbroker2.DataSet.FieldByName('bm').AsString;
              rs :=  datasetbroker2.DataSet.FieldByName('rs').AsInteger;
              jbgz := datasetbroker2.DataSet.FieldByName('jbgz').AsFloat;
              jbjj := datasetbroker2.DataSet.FieldByName('jbjj').AsFloat;
              xj := jbgz + jbjj;
              jk := datasetbroker2.DataSet.FieldByName('jk').AsFloat;
              sk := datasetbroker2.DataSet.FieldByName('sk').AsFloat;
              sk1 := datasetbroker2.DataSet.FieldByName('sk1').AsFloat;
              sl := datasetbroker2.DataSet.FieldByName('sl').AsFloat;
              n :=  datasetbroker2.DataSet.FieldByName('n').AsString;
              y :=  datasetbroker2.DataSet.FieldByName('y').AsString;

              datasetbroker1.DataSet.Insert;////////////////
              datasetbroker1.DataSet.FieldByName('bm').Value := bm;
              datasetbroker1.DataSet.FieldByName('RS').Value := rs;
              datasetbroker1.DataSet.FieldByName('JBGZ').Value := jbgz;
              datasetbroker1.DataSet.FieldByName('jbjj').Value := jbjj;
              datasetbroker1.DataSet.FieldByName('xj').Value := xj;
              datasetbroker1.DataSet.FieldByName('jxgk').Value := jk;
              datasetbroker1.DataSet.FieldByName('sk').Value := sk;
              datasetbroker1.DataSet.FieldByName('sk1').Value := sk1;
              datasetbroker1.DataSet.FieldByName('sl').Value := sl;
              datasetbroker1.DataSet.FieldByName('n').Value := n;
              datasetbroker1.DataSet.FieldByName('y').Value := y;
              datasetbroker1.DataSet.Post;
          end;
          datasetbroker2.DataSet.Next;
     end;
        datasetbroker1.DataSet.ApplyUpdates(false);
        datasetbroker1.DataSet.Refresh;

end;
代码在执行到 dataset.insert 时 报异常  搞不明白是为什么

atiger

怎么异常发呢，是报错还是不起作用？
如果是报错，请把原始的错误信息贴出来看看。

ccyy0112

请刷新一下 我把报错信息贴到1楼上了

atiger

呵呵，你应该每次都报吧
在datasetbroker1.DataSet.Insert前加一句datasetbroker1.DataSet.Edit

ccyy0112

原因找到了 是因为权限的问题 我调试使用的用户没有权限新增. 谢谢您的 回帖

atiger

ok