TfrxCrossView

mznan

Требуется ручное заполнение данными Cross1

vlad_galaxy

Для заполнения объекта в Runtime используется метод AddValue
См демку "Cross from non-DB data"

mznan

не могу найти у себя эту демку...может напишешь пример?

vlad_galaxy

procedure Cross1OnBeforePrint(Sender: TfrxComponent);
begin
with Cross1 do
begin
AddValue(, [2001, 2], [1500]);
AddValue(, [2001, 3], [1600]);
AddValue(, [2002, 1], [1700]);

AddValue(, [2002, 1], [2000]);

AddValue(, [2001, 1], [4000]);
AddValue(, [2001, 2], [4100]);
end;
end;

mznan

vlad_galaxy написал:

procedure Cross1OnBeforePrint(Sender: TfrxComponent);
begin
with Cross1 do
begin
AddValue(, [2001, 2], [1500]);
AddValue(, [2001, 3], [1600]);
AddValue(, [2002, 1], [1700]);

AddValue(, [2002, 1], [2000]);

AddValue(, [2001, 1], [4000]);
AddValue(, [2001, 2], [4100]);
end;
end;

Проблемы с синтаксисом
AddValue(, , [1500]);
AddValue(, , [1600]);
Выдает ошибку
Как присвоить строковое значение?

AlexTZ

Если писать так, то будет ошибка - индексы строк и столбцов должны быть одного типа.

procedure Cross1OnBeforePrint(Sender: TfrxComponent);
begin
with Cross1 do
begin
AddValue(, [2001, 2], [1500]);
AddValue(, [2001, 3], [1600]);
AddValue(, , [1500]);
AddValue(, , [1600]);
end;
end;

mznan

AlexTZ написал:

Если писать так, то будет ошибка - индексы строк и столбцов должны быть одного типа.

Понятно. А если индексы столбцов и строк все-таки разных типов?
Возможно ли такое?

AlexTZ

Индексы могут быть, конечно, разных типов, но значения внутри конкретного индекса - одного типа.

Igorek3

AlexTZ написал:

Индексы могут быть, конечно, разных типов, но значения внутри конкретного индекса - одного типа.

Народ у меня проблема с ручным заполнением такая,
если кто знает помогите пожалуйста:

код проги(в скрипте):

procedure Cross1OnBeforePrint(Sender: TfrxComponent);
Var
dsMC: TfrxDataSet;
begin
with Cross1 do
begin
dsMC := Report.GetDataSet('Soderjanie');
dsMC.First;

while not dsMC.Eof do
begin
AddValue([<Soderjanie."Краткое_наим_реквизита">],
[<Soderjanie."Год">,Soderjanie."Полное_название">, 'Начислено'],
[<Soderjanie."Сумма_начисления">]);
dsMC.Next;
end;

end;
end.

!!! Свойство Report1 PrintIfEmpty = False

Если посмотреть из дизайнера, то все нормально.
Как только из Delphi 7.0
frxReport1.LoadFromFile('c:\.........');
frxReport1.PrepareReport;
frx.Report1.ShowPrepareReport;
то вызывается редактор, а самого отчета нет, хотя данные точно есть.