procedure TFrmLocPrint.QRBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
var S, X: string;
begin
  S := AdoLotStorageitem_num.AsString;
  if (S <> X) and (X <> '') then
    Color := clGrayText
  else
    Color := clWhite;
  X := S;循环结束后X都有值的,但是循环下一次的时候,X始终=''了,请问哪里出了问题?