试试:
procedure TDataModule1.WriteToDatabase;
var
CusVar :OleVariant;
begin
ClientDataSet1.CheckBrowseMode;
if ClientDataSet1.ChangeCount > 0 then
begin
CusVar := ClientDataSet1.Delta;
DCOMConnection1.AppServer.ApplyUpdate(CusVar);
end;
可能是传NULL值导致的错误。
procedure TDataModule1.WriteToDatabase;
var
CusVar :OleVariant;
begin
ClientDataSet1.CheckBrowseMode;
if ClientDataSet1.ChangeCount > 0 then
begin
CusVar := ClientDataSet1.Delta;
DCOMConnection1.AppServer.ApplyUpdate(CusVar);
end;
可能是传NULL值导致的错误。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货