Кто глючит?
Работаю с Cross-Tab object.
Вот обработчик события onBeforePrint, взятый из примера PrintTable:
procedure TfPrint.ReportBeforePrint(Sender: TfrxReportComponent);
var
Cross: TfrxCrossView;
i, j: Integer;
Tmp : Integer;
s : String;
begin
if c is TfrxCrossView then
begin
Cross := TfrxCrossView©;
Table1.First;
i := 0;
while not Table1.Eof do
begin
for j := 0 to Table1.Fields.Count - 1 do
Cross.AddValue(, [Table1.Fields[j].DisplayLabel], [Table1.Fields[j].AsString);
Table1.Next;
Inc(i);
end;
end;
end;
Вместо Table1 (TTable) использую DataSeet (TpFIBDataSet).
Вот видоизмененные строки:
for j := 0 to DataSet.FieldsCount-1 do
begin
s:=DataSet.Fields[j].AsString;
Сross.AddValue(, [FieldList[j].Field_Title], );
end;
Вылетает исключение EVariantTypeCastError с текстом: "Could not convert variant of type (String) into type (Double)".
Знаю наверняка, что это исключение возникает где-то в реализации компонента из FastReport, причем не во время выполнения метода AddObject, а после всего этого, за пределами процедуры обработки события OnBeforePrint.
Вот обработчик события onBeforePrint, взятый из примера PrintTable:
procedure TfPrint.ReportBeforePrint(Sender: TfrxReportComponent);
var
Cross: TfrxCrossView;
i, j: Integer;
Tmp : Integer;
s : String;
begin
if c is TfrxCrossView then
begin
Cross := TfrxCrossView©;
Table1.First;
i := 0;
while not Table1.Eof do
begin
for j := 0 to Table1.Fields.Count - 1 do
Cross.AddValue(, [Table1.Fields[j].DisplayLabel], [Table1.Fields[j].AsString);
Table1.Next;
Inc(i);
end;
end;
end;
Вместо Table1 (TTable) использую DataSeet (TpFIBDataSet).
Вот видоизмененные строки:
for j := 0 to DataSet.FieldsCount-1 do
begin
s:=DataSet.Fields[j].AsString;
Сross.AddValue(, [FieldList[j].Field_Title], );
end;
Вылетает исключение EVariantTypeCastError с текстом: "Could not convert variant of type (String) into type (Double)".
Знаю наверняка, что это исключение возникает где-то в реализации компонента из FastReport, причем не во время выполнения метода AddObject, а после всего этого, за пределами процедуры обработки события OnBeforePrint.
Комментарии