[搞定]数据回滚是出错,但是功能达到了**

jianth2005

如图:

atiger

设置断点，看看错误代码停到哪里了

atiger

??

jianth2005

我加了这短代码就没有问题了
DataSource_xbdm.DataSet.Append;

atiger

加了4楼就没有问题了？你是怎么回滚数据的，是代码吗？都帖出来看看，

jianth2005

是写代码啊.代码如下
DataSource_xbdm.DataSet.Cancel;
               DataSource_xbdm.DataSet.Append;
               datasetbzsjj1.Active:=false;
               datasetbzsjj1.Database.URL:='Biz:\RLZYGLXT\RLZYGLXTSJK.Database';
               DataSetBZSJJ1.SQL.Text := 'select Top '+SysUtils.IntToStr(PageCount)+' * From xbdm where ID not in (select Top '+PageBegin+' ID From xbdm order by zdxdm) order by zdxdm ';
               datasetbzsjj1.Active:=true;

atiger

好像是DataGrid一个缺陷，目前可以先用append 一下数据集来解决

另外，我看了一下你的代码，如果在数据量比较大的情况下，性能肯定会有影响的，像这样的代码
Query2.CommandText := 'select * From xbdm where jbdm='''+id+'''';
Query2.Open;
c:= Query2.RecordCount;
修改为
Query2.CommandText := 'select count(jbdm) From xbdm where jbdm='''+id+'''';
Query2.Open;
c:= Query2.RecordCount;


还有
zdxdm:=datasetbzsjj1.FieldByName['xz'].DataSet.FieldByName['ZDXDM'].AsString;
jbdm:=datasetbzsjj1.FieldByName['xz'].DataSet.FieldByName['JBDM'].AsString;
zdxjb:=datasetbzsjj1.FieldByName['xz'].DataSet.FieldByName['zdxjb'].AsString;
修改为
zdxdm:=datasetbzsjj1.FieldByName['ZDXDM'].AsString;
jbdm:=datasetbzsjj1.FieldByName['JBDM'].AsString;
zdxjb:=datasetbzsjj1.FieldByName['zdxjb'].AsString;
其他也有类似这样的代码，你修改一下吧

jianth2005

好的
结帐

atiger

ok

atiger

楼主，该问题不是缺陷，如果在对DataGrid的数据进行修改数据源的时候，建议先断开，然后再设置上，参考代码如下
begin
    DataGrid1.DataSource := nil;
    try
       page:=page+1;
       PageCount:=SysUtils.StrToInt(Edit_PageCount.Text);
       PageBegin:=SysUtils.IntToStr((page-1)*PageCount);
       //填充datagrid
        DataSource_xbdm.DataSet.Cancel;
        // DataSource_xbdm.DataSet.Append;
         datasetbzsjj1.Active:=false;                 datasetbzsjj1.Database.URL:='Biz:\RLZYGLXT\RLZYGLXTSJK.Database';
         DataSetBZSJJ1.SQL.Text := 'select Top '+SysUtils.IntToStr(PageCount)+' * From xbdm where ID not in (select Top '+PageBegin+' ID From xbdm order by zdxdm) order by zdxdm ';
          datasetbzsjj1.Active:=true;
          hqzx(SysUtils.IntToStr(page));
       finally
         DataGrid1.DataSource := DataSource_xbdm;
       end;
end;