隐藏FastTraport的DB交叉表中的列

Question

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

My Report

以下是代码：

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;