講清楚一下﹕我現在是Delphi+SQL7,
大致代碼如下﹕
Table_B.IndexFieldNames:= 'ORDNO;ORDSEQ;MODEL;DELDATE';
Table_B.SetKey;
Table_B.FieldByName('ORDNO').AsString:= Table_A.FieldByName('ORDNO').AsString;
Table_B.FieldByName('ORDSEQ').AsFloat:= Table_A.FieldByName('ORDSEQ').AsFloat;
Table_B.FieldByName('MODEL').AsString:= Table_A.FieldByName('MODEL').AsString;
Table_B.FieldByName('DELDATE').AsDateTime:= Table_A.FieldByName('DELDATE').AsDateTime; //此句出錯
if Table_B.Gotokey then
begin
Table_A.FieldByName('CAL_ORDQTY').AsFloat:= Table_B.FieldByName('ORDQTY').AsFloat;
Table_A.FieldByName('CAL_OSDQTY').AsFloat:= Table_B.FieldByName('OSDQTY').AsFloat;
end;