with dm.AdoQryAdd do
begin
close;
sql.Clear;
IntId:=1;
for i:= 0 to RecCount-1 do
begin
InsertSql:= 'Insert into Trk138 values ('''+InttoStr(IntId)+''' , '''+StrMsc+''' ,'''+StrLog+''' ,'''+StrDate+''' ,'''+StrTime+''' ,'''+StrTrk+''' ,'''+StrTrkNo+''' ,'''+StrCallNo+''','''+StrTreat+''')';
sql.Add(InsertSql);
try
ExecSql;
inc(IntId);
LblRec.Caption:=inttostr(IntId);
application.ProcessMessages;
except
Exit;
end;
end;
close;
end;

-
我爱灌水!