从oracle数据库向dbase数据库倒数据后dbase数据库中没有一条数据？？？ ( 积分: 100 )

从oracle数据库向dbase数据库倒数据后dbase数据库中没有一条数据？？？？
代码如下：(BDEquery连的是dbase数据库，query连的是oracle数据库)
QUERY1.Close;
QUERY1.SQL.Clear;
QUERY1.SQL.Add('select A.DWBM,B.DWMC,A.XM,A.GRXH,A.PCODE,A.GRZHYE from CGZX2.YW_ICK A, CGZX2.YW_DWDA B WHERE A.DWBM=:a AND B.DWBM=:b');
QUERY1.ParamByName('a').Value:=edit1.Text;
QUERY1.ParamByName('b').Value:=edit1.Text;
QUERY1.Open;
while not query1.Eof do
begin
DWBM:=QUERY1.FIELDByNAME('DWBM').asstring;
DWMC:=QUERY1.FIELDByNAME('DWMC').asstring;
XM:=QUERY1.FIELDByNAME('XM').asstring;
GRXH:=QUERY1.FIELDByNAME('GRXH').asstring;
PCODE:=QUERY1.FIELDByNAME('PCODE').asstring;
GRZHYE:=QUERY1.FIELDByNAME('GRZHYE').asstring;
BDEquery_OUT.Close;
BDEquery.sql.Clear;
BDEquery.sql.Add('select * from ick');
BDEquery.Open;
BDEquery.Append;
BDEquery.FieldByName('DWBM') .asstring:=DWBM;
BDEquery.FieldByName('DWMC') .asstring:=DWMC;
BDEquery.FieldByName('XM') .asstring:=XM;
BDEquery.FieldByName('GRXH') .asstring:=GRXH;
BDEquery.FieldByName('PCODE') .asstring:=PCODE;
BDEquery.FieldByName('GRZHYE').asstring:=GRZHYE;
BDEquery.Post;
query1.Next;
end;