在FastReport的DB交叉选项卡中隐藏列

Question

当列标题Value为14001时，我一直试图在FastReport中的DB交叉选项卡中隐藏列；但不是向下工作的语法！！！

我的报告

这是代码：

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

Answer 1

尝试在打印和收集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;