1、打印之前把数据处理掉,但“不”是 beforeprint 这个事件,是直接处理表格里面的数据,处理之后才quickrep.preview
2、
将qexpr的表达式设置为“query.字段名”就行了,然后在qexpr的onprint事件里写:
procedure TForm1.QRExpr1Print(sender: TObject;
var Value: String);
var
s:string;
num:boolean;//是数字
i:integer;
begin
num:=false;
s:=copy(value,1,3);
i:=1;
while i<3do
begin
num:=(s in ['0'..'9']);
inc(i);
if not num then
break;//不是数字则退出循环
end;
if num then
//是数字则将前三位过滤掉,不是则不管
Value:=Copy(Value,3,10);
end;