怎么让打印时能按要求的值打印??

Question

   如果dbgrid中的数据query1，那么用户鼠标单击dbgrid1的某列时，该列值由“Y”改为“N”之前需调用query1的edit方法。并且在query1打开之前应让query1的RequestLive属性设置为真；查询的语句不能是复合查询语句。

Answer 1

使用Tqrexpr 控件。在其属性expression 中使用 function 中的if  函数 按照提示输入条件
，结果值一，结果值二。这样当满足是该函数值为一，否则为二，你一试便知。

Answer 2

我记得可以在query的onCalculate里写程序进行控制
with query1 do begin
  if fields[1].asstring = 'Y' then
      QRlabel1.caption := '工作人员'
  else if fields[1].asstring = 'N' then
      ....
end;

Answer 3

谢谢 newdreamer(人生一场醉)　to ：　lemon_jyg(lemon)　
我试了,怎么没反应呀....

Answer 4

TQRText有个事件OnPrint
Procedure TForm1.QRText1OnPrint(Sender:TObject;Value:String);
begin
  if Value='Y' 
  then Value:='工作人员'
  else Value:='非工作人员';
end;

Answer 5

weyoung老兄:
这样我预览时还一样是错呀??