记得去年七月份我也遇到了这个问题，试了很多次，觉得应该与Updatemode无关。
我的解决办法是，不使用ApplyUpdate自动更新功能，而是在服务器端的DataSetProvider
的BeforeUpdateRecord中手工把Delta更新到数据库。以后就再也没有类似问题了。
这样做的一个附带好处是，还可以在服务器端对数据进行更改和检测。如果做一个
自动生成提交数据更新SQL语句的子程序，就会觉得这种方法不烦琐，挺值得的。
{******************************************************************************
生成查询语句
入口： DataName: 数据表名称
SourceFields: 数据表的字段名列表，如：'编号;名称;...;备注'
DeltaFields: 包含要修改的数据的数据表的字段名列表
WhereFields: 作为条件的字段名列表
WhereValues: 作为条件的字段的数值
SourceQuery: 用于运行查询语句的Query组件
DeltaDS: 包含要修改的数据的数据表
UpdateKind: ukModify => 修改查询， ukInsert => 新增查询
生成后的查询语句在 SourceQuery 的 SQL 属性中， 执行 ExecSQL 即可
*******************************************************************************}
procedure GenerateSQL(DataName, SourceFields, DeltaFields, WhereFields:string;
WhereValues:OleVariant;
SourceQuery:TADOQuery;
DeltaDS:TDataSet;
UpdateKind: TUpdateKind);
var
i, ValueCount, j, k: integer;
SourceFieldList, DeltaFieldList, WhereFieldList: TStringList;
s: string;
begin
SourceFieldList := TStringList.Create;
DeltaFieldList := TStringList.Create;
WhereFieldList := TStringList.Create;
TextToList(WhereFields, WhereFieldList);
// 如果 更新字段列表 为空， 自动生成
if SourceFields='' then
begin
for i:=0 to DeltaDS.FieldCount-1do
begin
s := DeltaDS.Fields
.FieldName;
// 跳过非正常字段
if DeltaDS.Fields.DataType in [ftUnKnown, ftAutoInc, ftParadoxOle, ftDBaseOle, ftADT, ftArray, ftArray,
ftReference, ftDataSet, ftOraBlob, ftOraClob, ftVariant, ftInterface, ftIDispatch] then
Continue;
if UpdateKind = ukModify then
// 更新操作，不包含关键字段
if WhereFieldList.IndexOf(s)>=0 then
Continue;
// 是关键字段，不加入更新字段列表
SourceFields := SourceFields + s + ';';
end;
// 删除最后一个 "分号"
if Length(SourceFields)>0 then
SourceFields := Copy(SourceFields, 1, Length(SourceFields)-1);
DeltaFields := SourceFields;
end;
if DeltaFields='' then
DeltaFields := SourceFields;
TextToList(SourceFields, SourceFieldList);
TextToList(DeltaFields, DeltaFieldList);
if SourceFieldList.Count <> DeltaFieldList.Count then
raise Exception.Create('SQL 语句设置中的数据更新与数据源的字段数目不一致');
SourceQuery.SQL.Clear;
try
if UpdateKind = ukModify then
begin
SourceQuery.SQL.Add('Update ' + DataName + ' Set ');
ValueCount := 0;
for i:=0 to SourceFieldList.Count-1do
begin
if DeltaDS.FieldByName(DeltaFieldList).IsNull then
Continue;
s := SourceFieldList + '=
eltaField' + InttoStr(i);
if ValueCount>0 then
s := ', ' + s;
SourceQuery.SQL.Add(s);
Inc(ValueCount);
end;
if ValueCount=0 then
begin
SourceQuery.SQL.Clear;
Exit;
end;
if WhereFieldList.Count>0 then
SourceQuery.SQL.Add(' Where ');
for i:=0 to WhereFieldList.Count-1do
begin
s := ' ' + WhereFieldList + '=:WhereField' + InttoStr(i);
if i<(WhereFieldList.Count -1) then
s := s + ' And ';
SourceQuery.SQL.Add(s);
end;
SourceQuery.Parameters.ParseSQL(SourceQuery.SQL.Text, True);
for i:=0 to ValueCount-1do
begin
s := SourceQuery.Parameters.Items.Name;
Delete(s, 1, 10);
Val(s, j, k);
SourceQuery.Parameters.Items.Value :=
DeltaDS.FieldByName(DeltaFieldList[j]).Value;
end;
for i:=0 to WhereFieldList.Count-1do
begin
SourceQuery.Parameters.Items[i + ValueCount].Value :=
WhereValues;
end;
end;
if UpdateKind = ukInsert then
begin
SourceQuery.SQL.Add('Insert into ' + DataName + ' (');
ValueCount := 0;
for i:=0 to SourceFieldList.Count-1do
begin
if DeltaDS.FieldByName(DeltaFieldList).IsNull then
Continue;
s := ' ' + SourceFieldList;
if ValueCount>0 then
s := ', ' + s;
SourceQuery.SQL.Add(s);
Inc(ValueCount);
end;
if ValueCount=0 then
begin
SourceQuery.SQL.Clear;
Exit;
end;
SourceQuery.SQL.Add(') Values (');
ValueCount := 0;
for i:=0 to SourceFieldList.Count-1do
begin
if DeltaDS.FieldByName(DeltaFieldList).IsNull then
Continue;
s := 'eltaField' + InttoStr(i);
if ValueCount>0 then
s := ', ' + s;
SourceQuery.SQL.Add(s);
Inc(ValueCount);
end;
SourceQuery.SQL.Add(') ');
SourceQuery.Parameters.ParseSQL(SourceQuery.SQL.Text, True);
for i:=0 to ValueCount-1do
begin
s := SourceQuery.Parameters.Items.Name;
Delete(s, 1, 10);
Val(s, j, k);
SourceQuery.Parameters.Items.Value :=
DeltaDS.FieldByName(DeltaFieldList[j]).Value;
end;
end;
finally
SourceFieldList.Free;
DeltaFieldList.Free;
WhereFieldList.Free;
end;
end;
{**************************************************************************************************
把用分号分隔的字符串转变为一个 StringList
入口： s -> 用分号分隔的字符串；
出口： SList -> 转变后的 StringList
***************************************************************************************************}
procedure TextToList(s: string;
var SList: TStringList);
var
i: integer;
begin
SList.Clear;
i := Pos(';', s);
While i>0do
begin
SList.Add(Copy(s, 1, i-1));
Delete(s, 1, i);
i := Pos(';', s);
end;
SList.Add(s);
end;
