2,498
社区成员
发帖
与我相关
我的任务
分享
Qry1.Open;
with CdsDetail do
begin
DisableControls;
try
CreateDataSet;
Qry1.First;
while not Qry1.Eof do
begin
Append;
for I := 0 to FieldCount - 1 do
Fields[i].Value := Qry1.FieldByName(Fields[i].FieldName).Value;
Qry1.Next;
end;
if State in dsEditModes then Post;
MergeChangeLog;
finally
EnableControls;
Qry1.Close;
end;
end;