TO
acific1979
下面是我程序中的一段程式中的代碼,功能和你說的一至.
MDDATA.ADOQuery2.Close;
MDDATA.ADOQuery2.SQL.Text:='select ZLDLDC.流水號,ZLDLDC.出貨日期 from ZLDLDC,YJJDK where ZLDLDC.流水號=YJJDK.流水號';
MDDATA.ADOQuery2.Open;
ProgressBar1.Min:=0;
ProgressBar1.Max:=MDDATA.ADOQuery2.RecordCount;
ProgressBar1.Position:=0;
for i:=1 to MDDATA.ADOQuery2.RecordCount do//有的更新出貨日期
begin
ProgressBar1.Position:=ProgressBar1.Position+1;
MDDATA.ADOQuery1.Close;
MDDATA.ADOQuery1.SQL.Text:='update YJJDK set 出貨日期= :RQ where (出貨日期 is NULL)and(流水號= :LSH)';
MDDATA.ADOQuery1.Parameters.ParamByName('LSH').Value:=MDDATA.ADOQuery2.Fields[0].Value;
MDDATA.ADOQuery1.Parameters.ParamByName('RQ').Value:=MDDATA.ADOQuery2.Fields[1].Value;
MDDATA.ADOQuery1.ExecSQL;
MDDATA.ADOQuery2.Next;
end;
MDDATA.ADOQuery1.Close;//一次性插入沒有的
MDDATA.ADOQuery1.SQL.Text:='insert into YJJDK select * from ZLDLDC where ZLDLDC.流水號 not in(select YJJDK.流水號 from YJJDK)';
MDDATA.ADOQuery1.ExecSQL;
//ZLDLDC和YJJDK是兩個表名你的操作只要用SQL語句就可以搞定