работа с объектом Cross tab
Вывожу на экран массив функцией AddValue
procedure TFormMain.frxRepMagazBeforePrint(Sender: TfrxReportComponent);
var
Cross: TfrxCrossView;
i, j: Integer;
begin
if Sender is TfrxCrossView then
begin
Cross := TfrxCrossView(Sender);
for i := 1 to 10 do
for j := 0 to 25 do
Cross.AddValue(, [j], [Arr_Magaz_s[i,j]]);
end;
end;
Причем Arr_Magaz_s:array[1..25,0..25] of string - выдается ошибка: Invalid variant type conversion. Как обойти эту проблему?
procedure TFormMain.frxRepMagazBeforePrint(Sender: TfrxReportComponent);
var
Cross: TfrxCrossView;
i, j: Integer;
begin
if Sender is TfrxCrossView then
begin
Cross := TfrxCrossView(Sender);
for i := 1 to 10 do
for j := 0 to 25 do
Cross.AddValue(, [j], [Arr_Magaz_s[i,j]]);
end;
end;
Причем Arr_Magaz_s:array[1..25,0..25] of string - выдается ошибка: Invalid variant type conversion. Как обойти эту проблему?
Комментарии
А почему бы не работать с кросс-отчетом так, как полагается?...
В конце концов не проще UserDataset использовать?