【结】点保存出错**

xhsoft

vk

gaihl

当前修改的数据已经被其他用户修改,不能进行保存操作

重新打开一下,再修改

xhsoft

begin
  DataSetBrokerSYKQHZ.DataSet.Open;
  DataSetBrokerSYKQHZ.DataSet.First;
   while not DataSetBrokerSYKQHZ.DataSet.eof do
   begin
  // cdcs := dsb_sjhztest.DataSet.FieldByName('cdcs').AsInteger;
   bh :=DataSetBrokerSYKQHZ.DataSet.FieldByName('bh').AsString;
   query1.close;
//query2.CommandText := 'update SJCQHZ_TEST_ set cdcs = (select bh,cd,count(*) as cdcs1 from YGKQSRB_KQ_ where cd=''#'' group by cd,bh) where YGKQSRB_KQ_.bh =SJCQHZ_TEST_.bh';
   query1.CommandText := 'select bh,cd,rq from KQGLMXB_KQ_ where cd=''#'' and bh = '''+bh+''' and rq between  convert(varchar(7),dateadd(month,-1,getdate()),120) + ''-01'' and convert(varchar(10),dateadd(day,-1,cast(convert(varchar(7),getdate(),120) + ''-01'' as datetime)),120)';    //上月中迟到的记录条数
   query1.Open;
   cdcs := query1.RecordCount;
   begin
       DataSetBrokerSYKQHZ.DataSet.open;
       DataSetBrokerSYKQHZ.DataSet.Edit;
       DataSetBrokerSYKQHZ.DataSet.FieldByName('cdcs').AsInteger := cdcs;
       DataSetBrokerSYKQHZ.DataSet.Post;
      // DataSetBrokerSYKQHZ.DataSet.ApplyUpdates;

   end;
    DataSetBrokerSYKQHZ.DataSet.next;
有问题吗,还是不行

gaihl

将  DataSetBrokerSYKQHZ.DataSet.ApplyUpdates; 放在while 循环的外面
重新编译执行

xhsoft

我原来就是那样做的,因为出错,才放到里面的

gaihl

数据集是否定义了更新选项,  是否用到了'cdcs'字段为主键或条件

xhsoft

没有

gaihl

1.当前这段代码是在什么操作后执行的.

2.试下去掉       DataSetBrokerSYKQHZ.DataSet.FieldByName('cdcs').AsInteger := cdcs;  
是否还会出现?

xhsoft

不会出现了

xhsoft

但我要修改它的值