QuickRep主/明细问题！急急急！(0分)

我在QuickRep中放了一个Detail和一个QRSubDetail，数据库中主表记录有多条，主表中可通过二个字段与明细表相关联，可QuickRep显示不对啊！ 部分代码如下：
procedure TfrmLabel.Read_RoadVehicle(VehicleID:AnsiString;Exit_ID:AnsiString;VeqPackNum:ANsiString;PasselID: integer);
var
strSQLZ,strSQLX:AnsiString;
begin
untQRL.LabelQRP.ADOQueryZ.Close;
untQRL.LabelQRP.ADOQueryX.Close;
untQRL.LabelQRP.ADOQueryX.Connection:=FConnection;
untQRL.LabelQRP.ADOQueryZ.Connection:=FConnection;
untQRL.LabelQRP.DataSet:=untQRL.LabelQRP.ADOQueryZ;
untQRL.LabelQRP.CompanyName.DataSet:=untQRL.LabelQRP.ADOQueryZ;
untQRL.LabelQRP.DelivererName.DataSet:=untQRL.LabelQRP.ADOQueryZ;
untQRL.LabelQRP.VehicleSeq.DataSet:=untQRL.LabelQRP.ADOQueryZ;
untQRL.LabelQRP.LabelNum.DataSet:=untQRL.LabelQRP.ADOQueryZ;
untQRL.LabelQRP.OrderDate.DataSet:=untQRL.LabelQRP.ADOQueryZ;
untQRL.LabelQRP.TotalPQuantity.DataSet:=untQRL.LabelQRP.ADOQueryZ;
untQRL.LabelQRP.OrderPackNum.DataSet:=untQRL.LabelQRP.ADOQueryZ;
untQRL.LabelQRP.PackNumber.DataSet:=untQRL.LabelQRP.ADOQueryZ;
untQRL.LabelQRP.CustomerName.DataSet:=untQRL.LabelQRP.ADOQueryZ;
untQRL.LabelQRP.QRSubDetail1.DataSet:=untQRL.LabelQRP.ADOQueryX;
untQRL.LabelQRP.ProductName.DataSet:=untQRL.LabelQRP.ADOQueryX;
untQRL.LabelQRP.Quantity.DataSet:=untQRL.LabelQRP.ADOQueryX;
untQRL.LabelQRP.Price.DataSet:=untQRL.LabelQRP.ADOQueryX;
untQRL.LabelQRP.ADOQueryZ.SQL.Clear;
strSQLZ:=' Select VehicleID,CompanyName,CustomerName,DelivererName,OrderDate,LabelNum,VehicleSeq,OrderPackNum,PackNumber,TotalPQuantity'
+' From P_LabelPrint Where PasselID='+IntToStr(PasselID)+' and VehicleID='+VehicleID
+' Order by LabelNum';
untQRL.LabelQRP.ADOQueryZ.SQL.Add(strSQLZ) ;
untQRL.LabelQRP.ADOQueryZ.Open;
while not untQRL.LabelQRP.ADOQueryZ.Eofdo
begin
untQRL.LabelQRP.CompanyName.DataField:='CompanyName';
untQRL.LabelQRP.DelivererName.DataField:='DelivererName';
untQRL.LabelQRP.VehicleSeq.DataField:='VehicleSeq';
untQRL.LabelQRP.LabelNum.DataField:='LabelNum';
untQRL.LabelQRP.OrderDate.DataField:='OrderDate';
untQRL.LabelQRP.TotalPQuantity.DataField:='TotalPQuantity';
untQRL.LabelQRP.OrderPackNum.DataField:='OrderPackNum';
untQRL.LabelQRP.PackNumber.DataField:='PackNumber';
untQRL.LabelQRP.CustomerName.DataField:='CustomerName';
untQRL.LabelQRP.ExitID.Caption:=Exit_ID;
untQRL.LabelQRP.VeqPackNum.Caption:=VeqPackNum;
untQRL.LabelQRP.ADOQueryX.SQL.Clear;
strSQLX:='Select ProductName,Quantity,Price from t_CheckListDetails '
+' Where Passelid='+IntToStr(PasselID)+' and VehicleID='+VehicleID +' and LabelNum='+untQRL.LabelQRP.ADOQueryZ.fieldbyname('LabelNum').AsString
+' order by Quantity';
untQRL.LabelQRP.ADOQueryX.SQL.Add(strSQLX);
untQRL.LabelQRP.ADOQueryX.Open;
untQRL.LabelQRP.ProductName.DataField:='ProductName';
untQRL.LabelQRP.Quantity.DataField:='Quantity';
untQRL.LabelQRP.Price.DataField:='Price';
untQRL.LabelQRP.ADOQueryZ.Next;
end;
end;