然后循环Query往UserDataSet中插入数据
with TBizDataSet(dsReport.DataSet) do
begin
HdQuery.First;
//处理原始数据
while not HdQuery.Eof do
begin
FProgress.Text := '正在处理第'+ SysUtils.Inttostr(HdQuery.Recno)+'条数据共'+SysUtils.Inttostr(HdQuery.RecordCount)+'条数据';
Append;
for i:=0 to FieldCount-1 do
begin
if (Fields.FieldName='SEQ') or (Fields.FieldName='GROUPFIELDS') then
Continue
else
Fields.Value:=HdQuery.FieldByName(Fields.FieldName).Value;
end;
Post;
HdQuery.Next;