100分求助------ClientDataSet提交数据失败
服务器端更新---------------------------------------------
function TRoBinService.UpdatesDataSet(const Delta: Binary; const CmdText: String): Boolean;
var ErrorCount,i:Integer;
begin
QPub.SQL.Text := CmdText;
DSPUpdate.ApplyUpdates(VariantFromBinary(Delta),-1,ErrorCount);
if ErrorCount > 0 then
raise Exception.Create('更新资料失败!');
Result := True;
end;
客户端提交-------------------------------------------------
function TData.UpdatesDataSet(CDSDataSet:TClientDataSet): Boolean;
var tmpItem : TClientDataSet ;
begin
if CDSDataSet.ChangeCount = 0 then
begin
Showmessage('没有数据要提交!');
Exit;
end;
(RORemoteService as IRoBinService).UpdatesDataSet(BinaryFromVariant(CDSDataSet.Data),CDSDataSet.CommandText);
end;
--------------
提示违反了PRIMARY KEY 约束 'RK_Client_Info',不能在对象Client_info 中插入重复键
---------
但我并没有插入数据啊，，只是修改而已！
[解决办法]
多明显的错误提示
[解决办法]
这......那好吧我路过接分
[解决办法]
解决了那就只能接分了
