为什么fastreport老提示EVariantTypeCastError ?

Question

could not convert variant of type(string) into type(double) procedure TFormTest.frxReport1BeforePrint(Sender: TfrxReportComponent);
var
  Cross: TfrxCrossView;
  i, j: Integer;
begin
  if Sender is TfrxCrossView then
  begin
    Cross := TfrxCrossView(Sender);
  DataModule1.ADOQuery2.First;
    i := 0;   
    while not DataModule1.ADOQuery2.Eof do  
    begin  
      for j := 0 to 1 do  
        Cross.AddValue([i], [DataModule1.ADOQuery2.Fields[j].DisplayLabel], [DataModule1.ADOQuery2.Fields[j].AsString]);
  
      DataModule1.ADOQuery2.Next;   
      Inc(i);   
    end;     end;
end;
为什么呢...

Answer 1

这问题是可以了,请问如何给 报表 TfrxCrossView  自定义标题呢?

Answer 2

双击TfrxCrossView控件，在弹出的窗体(交叉报表编辑器)里，将Cell的计算配置设成'无'即可