【结贴】DeltaDataSet报错[问题]**

bsit

数据集dsTest上有两字段fieldA与fieldB,数据如下:
fieldA                 fieldB
ta_1                   tb_1
ta_2                   tb_2
ta_3                   tb_3
在保存按钮下写的代码
if ((dsTest.Active) and (not dsTest.UpdatesPending)) then
  begin
    Exit
  end
  else
  begin
    dsDelta := TDeltaDataSet.Create(dsTest);
    ......


问题:
1:在新增数据时,如果只点了新增按钮,而没有进行其它的操作(数据集设有自动填充字段),就保存的时候,代码执行到
dsDelta := TDeltaDataSet.Create(dsTest);
会报错 Delta is empty.
2:对数据进行修改时,比如上面的
ta_1                   tb_1
我将tb_1先改成tb_100,这个时候我不保存,再把tb_100改成tb_1
再进行保存,此时代码执行到
dsDelta := TDeltaDataSet.Create(dsTest);
会报错 Delta is empty.


请问我写的这个代码问题出在什么地方?这种情况应该怎样解决？

lixy

用一个异常处理把这段程序包住好了

bsit

没有其它的解决方法吗?我包住代码了那也存在这个问题啊,你说是不？

bsit

既然都已经执行到了dsDelta := TDeltaDataSet.Create(dsTest)
那是不是可以说这个数据集是进行了新增或删除或修改操作的呢?
那为什么会报错嘛,有点困惑

jiahaiming

楼主，如果你只是点了Insert而没有编辑，delta是没有数据的。
你可加一个判断条件：dsTest.ChangeCount
如果大于0，则delta不为空

bsit

好的~明天再来试一下~

bsit

5楼的办法还是不行,
if (((dsTest.Active) and (not dsTest.UpdatesPending) ) or (dsTest.ChangeCount<=0)) then
  begin
    Exit
  end
  else
  begin
    dsDelta := TDeltaDataSet.Create(dsTest);
    try
      ......

我改成这样以后,else里面的代码一直不会执行,一下子就Exit了,我写的有问题吗？

jiahaiming

如果您只是点击新建，然后直接保存，ChangeCount的值就一直是0

bsit

我不是点新建直接保存的,我是把数据集上的数据修改了,从A值改成了B值,他也直接Exit了,没有执行下面的代码阿

atiger

那看看dsTest.Active 、 dsTest.UpdatesPending 、dsTest.ChangeCount  这些值是啥，应该是这个条件判断成立了，所以执行的 exit 的