frxReport1GetValue

Comments

• xiaomaoxia

  March 2006 edited 1:15PM

  the 'i' should be frxUserDataSet1.RecNo
• Qook

  March 2006 edited 1:15PM

  xiaomaoxia wrote:

  the 'i' should be frxUserDataSet1.RecNo

  No, it isn't problem. So I try show you a code.
  

  var
    ar: array[0..9] of Integer = (0,1,2,3,4,5,6,7,8,9);
    adrr: array[0..9] of String = ('a','b','c','d','e','f','g','h','i','j');
    i:integer;
    DB: TfrxUserDataSet;
  
  procedure TForm1.Button1Click(Sender: TObject);
  begin
   i:=0;
   DB:=TfrxUserDataSet.Create(self);
  
   DB.UserName:='DB';
   DB.RangeEnd := reCount;
   DB.RangeEndCount := 10;
  
  
   frxReport1.DataSets.Add(DB);
  
   DB.OnGetValue:=frxReport1GetValue;
  
   DB.Fields:=ParseXMLtoFRList(LoadXMLFile('database.xml'));
  
  frxReport1.DesignReport;
  end;
  
  procedure TForm1.frxReport1GetValue(const VarName: String;
    var Value: Variant);
  begin
    if CompareText(VarName, 'person.firstname') = 0 then
      Value := ar[DB.RecNo];
     if CompareText(VarName, 'thing.name') = 0 then
      Value := adrr[DB.RecNo];
  
  end;
  

  
  So on report designer:
  
  ********************master************************************DB*
  DB."osoba.name"
  ****************************************************************
  
  ********************detail**************************************DB*
  DB."thing.name"
  *****************************************************************
  
  Preview:
  0
  a
  b
  c
  d
  e
  f
  g
  h
  i
  j
  
  nothing else