with Table1 do begin First; while not Eof do begin if (FieldByName('Dat').AsDateTime>StrToDateTime(Edit1.Text)) and (FieldByName('Dat').AsDateTime<StrToDateTime(Edit2.Text)) then begin with Number1 do begin Append; FieldByName('C1').AsInteger:=Table1.FieldByName('C1').AsInteger; FieldByName('C2').AsInteger:=Table2.FieldByname('C2').AsInteger; \ \\ Post; end; with Number2 do begin \ 同上; \ end; end; Next; end; end; 随便写的不一定对,自己试试吧。
insert into DestTable select field1,field2,field3 from SourTable where date_Field>date1 and date_Field<date2
begin
First;
while not Eof do
begin
if (FieldByName('Dat').AsDateTime>StrToDateTime(Edit1.Text)) and (FieldByName('Dat').AsDateTime<StrToDateTime(Edit2.Text)) then
begin
with Number1 do
begin
Append;
FieldByName('C1').AsInteger:=Table1.FieldByName('C1').AsInteger;
FieldByName('C2').AsInteger:=Table2.FieldByname('C2').AsInteger;
\ \\
Post;
end;
with Number2 do
begin
\ 同上;
\ end;
end;
Next;
end;
end;
随便写的不一定对,自己试试吧。