我是自己处理onneeddata 把值赋给QRLable
if MoreData then
if not QyItem.Eof then begin
MoreData :=true;
if Line='' then begin
Line:=QyItem.FieldByName('Matter').AsString ;
QyItem.Next ;
end;
if ByteType(Line,RowLen)<>MbLeadByte then TrueRowLen:=RowLen
else TrueRowLen:=RowLen-1;
QRLable.Caption :=Copy(Line,1,TrueRowLen);
Delete(Line,1,TrueRowLen);
end
else QRLable.Caption :='';