delphi 三层 ApplyUpdates 无法保存第二次修改的数据
delphi 2010 datasnap
服务器端: adocon+adoquery+DataSetProvider
客户端:TSQLConnection->TDSProviderConnection->TClientDataSet
代码如下
--打开数据集 (没有问题)
procedure TfrmMain.Button2Click(Sender: TObject);
begin
cdsTBA.CommandText := 'select * from TPADBA';
if cdsTBA.active then cdsTBA.Close;
cdsTBA.Open;
end;
--保存数据 (没有任何报错提示)
procedure TfrmMain.Button3Click(Sender: TObject);
var
NumError:integer;
begin
cdsTBA.ApplyUpdates(0);
cdsTBB.ApplyUpdates(0);
end;
-------------------
问题:
第一次修改保存没有问题,在点击了第一次保存后在修改,然后再点保存,没有任何提示但数据无法就是保存到后台
-------------------
DataSetProvider 属性设置 :
updatemodel = true;
options.popro..chnages := true;
options.poallowcomandtext := true
ClientDataSet(cdsTBB) 属性设置 :
ClientDataSet.的TField keyfields 有设值