打印遇到的麻烦问题？

Question

预览的时候，只有部分在跟着记录的变化而变化
因为我有一些数据是把他赋值给qrlabel控件的caption
我该怎么做才能使qrlabel的cation信息也随记录的变化而变化！！！

Answer 1

把加载值的语句写到对应的BAND的BEFOREPRINT方法中

Answer 2

在QR的ON NEED DATA事件中赋值。

Answer 3

var
  licensetype: string;
  declaretype: string;
begin
  licensetype:=self.aqAcquire.Fields[8].AsString;
  if licensetype='A' then
    begin
      self.qrlebADate.Caption:=formatdatetime('yyyy"年"mm"月"dd"日',self.aqAcquire.Fields[9].AsDateTime);
      self.qrlebBDate.Caption:='';
      self.qrlebCDate.Caption:='';
    end
  else if licensetype='B' then
         begin
           self.qrlebBDate.Caption:=formatdatetime('yyyy"年"mm"月"dd"日',self.aqAcquire.Fields[9].AsDateTime);
           self.qrlebADate.Caption:='';
           self.qrlebCDate.Caption:='';
         end
       else if licensetype='C' then
              begin
                self.qrlebCDate.Caption:=formatdatetime('yyyy"年"mm"月"dd"日',self.aqAcquire.Fields[9].AsDateTime);
                self.qrlebADate.Caption:='';
                self.qrlebBDate.Caption:='';
              end;
  declaretype:=self.aqAcquire.Fields[12].AsString;
  if declaretype='主班' then
    begin
      self.W1.Caption:='√';
      self.W2.Caption:='';
      self.W3.Caption:='';
      self.W4.Caption:='';
      self.qrLicense1.Caption:=self.aqAcquire.Fields[13].AsString;
      self.qrLicense2.Caption:='';
    end
  else if declaretype='副班' then
         begin
           self.W1.Caption:='';
           self.W2.Caption:='√';
           self.W3.Caption:='';
           self.W4.Caption:='';
           self.qrLicense1.Caption:='';
           self.qrLicense2.Caption:=self.aqAcquire.Fields[13].AsString;
         end
       else if declaretype='机动司机'then
              begin
                self.W1.Caption:='';
                self.W2.Caption:='';
                self.W3.Caption:='√';
                self.W4.Caption:='';
                self.qrLicense1.Caption:='';
                self.qrLicense2.Caption:='';
              end
            else if declaretype='车管干部' then
                   begin
                     self.W1.Caption:='';
                     self.W2.Caption:='';
                     self.W3.Caption:='';
                     self.W4.Caption:='√';
                     self.qrLicense1.Caption:='';
                     self.qrLicense2.Caption:='';
                   end;
  self.lebBirthday.Caption:=formatdatetime('yyyy"年"mm"月"dd"日',self.aqAcquire.Fields[4].AsDateTime);
  self.lebAgreementDay.Caption:=formatdatetime('yyyy"年"mm"月"dd"日',self.aqAcquire.Fields[17].AsDateTime);
  self.lebAcquireDay.Caption:=formatdatetime('yyyy"年"mm"月"dd"日',self.aqAcquire.Fields[18].AsDateTime);
end;

Answer 4

不知道你是显示一条记录还是多条，如果是一条记录可以在beforeprint事件里写；如果是多条记录可以在NEEDDATA事件里写。