有关报表？

Question

用计算字段：TQRExpr----》 Expression  --->Function,  --Logical----
---- IF --->Table1.Exist
logical value1:          "有”
logical value1:           “无“

Answer 1

在QRDBExist.onprint中寫上
procedure QRDBExistPrint(sender: TObject;
  var Value: String);
begin
  if Value = 'Y' then value := '是'；
  if Value = 'N' then value := '否'；
end;

Answer 2

用SQL呀：
select 是否有='有' from table1 where Exist='Y'
union select 是否有='无' from table1 where Exist='N'