query1.sql.add('Select * From rkmingxi A,ruku B Where B.发票号码=A.发票号码');
---->
query1.sql.add('Select A.*,B.* From rkmingxi A,ruku B Where B.发票号码=A.发票号码');
---->
query1.sql.add('Select A.*,B.* From rkmingxi A,ruku B Where B.发票号码=A.发票号码');
qery1.sql.clear; //增加
query1.sql.add('Select * From rkmingxi A,ruku B Where B.发票号码=A.发票号码');
改成--->
query1.sql.add('Select a.* From rkmingxi A,ruku B Where B.发票号码=A.发票号码');
query1.close;
query1.sql.Text:='Select * From rkmingxi A,ruku B
+'Where B.发票号码=A.发票号码'
+'And A.物品编码='''+Table1.FieldByName('物品编码').Asstring+'''And A.领用否<>'1' Order by B.购入日期';query1.open;