在數據庫交叉表中隱藏FastReport的列

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;