循环流水号。string id ='' if filedbyname('流水号').asstring = 'null' or filedbyname('流水号').asstring = '' or filedbyname('流水号').asstring = id then begin 其他字段累加; end else begin 把id和累加后的字段存到新表; id := filedbyname('流水号').asstring; 其他字段重新初始化 end; 循环结束后 把最后的id和累加后的字段存到新表;
if filedbyname('流水号').asstring = 'null' or filedbyname('流水号').asstring = '' or filedbyname('流水号').asstring = id then
begin
其他字段累加;
end else
begin
把id和累加后的字段存到新表;
id := filedbyname('流水号').asstring;
其他字段重新初始化
end;
循环结束后 把最后的id和累加后的字段存到新表;