我自己已经解决了 frmpbnrprn.QRMemo1.Lines.Clear; while not adoquery1.eof do begin frmpbnrprn.QRMemo1.lines.Add('评比项目 '+adoquery1.fieldbyname('pbxm').asstring); frmpbnrprn.QRMemo1.lines.Add('评分人 '+adoquery1.fieldbyname('pfenr').AsString); frmpbnrprn.QRMemo1.lines.Add('项目具体内容'); frmpbnrprn.QRMemo1.lines.Add(adoquery1.fieldbyname('xmjtnr').asstring); frmpbnrprn.QRMemo1.lines.Add('评比标准'); frmpbnrprn.QRMemo1.lines.Add(adoquery1.fieldbyname('pbbz').asstring); frmpbnrprn.QRMemo1.lines.Add(''); frmpbnrprn.QRMemo1.lines.Add(''); adoquery1.next; end;
请告诉我 [email protected]
frmpbnrprn.QRMemo1.Lines.Clear;
while not adoquery1.eof do
begin
frmpbnrprn.QRMemo1.lines.Add('评比项目 '+adoquery1.fieldbyname('pbxm').asstring);
frmpbnrprn.QRMemo1.lines.Add('评分人 '+adoquery1.fieldbyname('pfenr').AsString);
frmpbnrprn.QRMemo1.lines.Add('项目具体内容');
frmpbnrprn.QRMemo1.lines.Add(adoquery1.fieldbyname('xmjtnr').asstring);
frmpbnrprn.QRMemo1.lines.Add('评比标准');
frmpbnrprn.QRMemo1.lines.Add(adoquery1.fieldbyname('pbbz').asstring);
frmpbnrprn.QRMemo1.lines.Add('');
frmpbnrprn.QRMemo1.lines.Add('');
adoquery1.next;
end;