Report Control - Group Rows

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Hi there, can someone give me the syntax to return the data on a 'Group' row? 
I have a grid grouped by "Customer Name" - so my first 'Group' row in the grid reads;

"Customer Name:ABC"

ABC being the first customer in the list.

Thanks in advance

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
Roken Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 03 March 2008 Location: United Kingdom Status: Offline Points: 2	Post Options Post Reply Quote Roken Report Post Thanks(0) Quote Reply Topic: Report Control - Group Rows Posted: 03 March 2008 at 6:53am
	Hi there, can someone give me the syntax to return the data on a 'Group' row? I have a grid grouped by "Customer Name" - so my first 'Group' row in the grid reads; "Customer Name:ABC" ABC being the first customer in the list. Thanks in advance

wlcabral Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 25 April 2007 Location: Brazil Status: Offline Points: 72	Post Options Post Reply Quote wlcabral Report Post Thanks(0) Quote Reply Posted: 03 March 2008 at 9:11pm
	* example for MS FOXPRO : oSelectd = reportControl.SelectedRows if oSelectd.Count > 0 oParent = oSelectd.Row(0).ParentRow if !isNull(oParent) if oParent.GroupCaption =true ? oParent.GroupCaption endif endif endif
	wlcabral

Roken Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 03 March 2008 Location: United Kingdom Status: Offline Points: 2	Post Options Post Reply Quote Roken Report Post Thanks(0) Quote Reply Posted: 04 March 2008 at 4:39am
	Thanks for your reply, unfortunately I need a visual basic 6 example. In order to populate a report in excel I need the contents of the highlighted rows.

nighthawk Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 11 June 2004 Status: Offline Points: 167	Post Options Post Reply Quote nighthawk Report Post Thanks(0) Quote Reply Posted: 07 March 2008 at 10:40am
	You might try something like this: Dim i As Long Dim GroupRow As XtremeReportControl.ReportGroupRow Dim ReportRow As XtremeReportControl.ReportRow 'loop through report control records i = 0 Do While (i < objReportControl.Rows.Count) If (objReportControl.Rows(i).GroupRow = True) Then 'this is a group row so convert it to ReportGroupRow type Set GroupRow = objReportControl.Rows(i) MsgBox GroupRow.GroupCaption Else 'this is not a group row so treat it as normal ReportRow type Set ReportRow = objReportControl.Rows(i) MsgBox ReportRow.Record.Item(1).Caption End If i = i + 1 Loop I haven't actually tested the above code but it is a simplified version of what I use so it should work.