procedure TdmMain.Query1Field1GetText(Sender: TField; var Text: String; DisplayText: Boolean); begin if TField(Sender).AsBoolean then Text := '√' else Text := ''; end;
----------->引用一下,同理
还有一个办法:先建立一个Tqrlabel在要打印的地方,然后在quickrep的beforeprint方法中写 ... if query.fieldbyname('xb').asstring='true' then qrlabel1.caption:='男' else qrlabel1.caption:='女'; ...
procedure TdmMain.Query1Field1GetText(Sender: TField;
var Text: String; DisplayText: Boolean);
begin
if TField(Sender).AsBoolean then
Text := '√'
else
Text := '';
end;
----------->引用一下,同理
...
if query.fieldbyname('xb').asstring='true' then
qrlabel1.caption:='男'
else
qrlabel1.caption:='女';
...