Вопрос о Masterdata

MasterofCDM · November 2008

Есть отчет в нем три бэнда, один из которых MasterData1, я в Delpi2007 использую два компонента (frxReport и frxUserDataSet) и код по нажатию кнопки

    frxReportUcLst.PreviewPages.LoadFromFile('uchetniilist.fr3', True);
    frxReportUcLst.ReportOptions.Name := 'uchetniilist.fr3';
    frxReportUcLst.LoadFromFile('uchetniilist.fr3');
    frxUserDataSetUcLst.RangeEnd := reCount;
    frxUserDataSetUcLst.RangeEndCount := 3;
    frxReportUcLst.ShowReport;

и соответственно

procedure TForm4.frxReportUcLstGetValue(const VarName: string;
  var Value: Variant);
begin
        if CompareText(VarName, 'Predmet') = 0 then
            Value := ar[frxUserDataSetUcLst.RecNo];
        if CompareText(VarName, 'Ocenka') = 0 then
            Value := ar[frxUserDataSetUcLst.RecNo];
end;

в итоге при печати кол-во строк в MasterData = количеству RowCount установленному вручную через конструктор отчетов, а не через "frxUserDataSetUcLst.RangeEndCount := 3" и frxUserDataSetUcLst.RecNo всегда равен 0, в чем может быть косяк?

MasterofCDM · November 2008

Попробовал сделать иначе

var
  MasterData: TfrxMasterData;
begin
    MasterData := frxReport1.FindObject('MasterData1') as TfrxMasterData;
    MasterData.RowCount := 3;
end;

procedure TForm4.frxReportUcLstGetValue(const VarName: string;
  var Value: Variant);
begin
    if CompareText(VarName, 'Predmet') = 0 then
        Value := ListView1.Items[ind1].SubItems[0];
    if CompareText(VarName, 'Ocenka') = 0 then
         Value := ListView1.Items[ind1].SubItems[0];
end;

И всеравно печатает столько раз сколько указано вручую. Как добраться до MasterData, уже все голову сломал, подскажите плизззз

Вопрос о Masterdata

Комментарии

Оставить комментарий