隐藏数据库交叉表中的FastReport列

问题描述

当列标题值为14001时，我一直试图在FastReport的数据库交叉表中隐藏列；但不能解决语法问题！！！！

I've been trying to hide column from a DB cross-tab in FastReport when the column header Value is 14001 ; but is not work down syntax !!!

这是代码：

procedure DBCross2OnCalcWidth(ColumnIndex: Integer; ColumnValues: Variant;var Width: Extended);
begin 
if (VarToStr(ColumnValues[0]) = '14001') then 
    Width := 0;
end;

推荐答案

尝试在打印和收集HeaderValues上触发添加过程[0 ]

Try add procedure trigged on print and collection HeaderValues[0]

procedure DBCross2OnPrintColumnHeader(Memo: TfrxMemoView; HeaderIndexes, HeaderValues, Value: Variant);
begin
  if (VarToStr(HeaderValues[0]) = '14001') then
  begin
    Memo.Width := 0;
    Memo.Height := 0;
    Memo.Printable := false;
    Memo.Visible := false;                          
  end;                      
end;

这篇关于隐藏数据库交叉表中的FastReport列的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！