Examples

This very simple code (MS Foxpro) can give you a basic idea how to create the columns and populate with some records…

 

RESIZABLE = TRUE

With xTremeReportControl

 

.Columns.DeleteAll()

.PaintManager.NoItemsText = "wait..."

.redraw()           

 

oCol0 = .Columns.Add(0,”Caption 01”, 300, RESIZABLE)

oCol1 = .Columns.Add(1,”Caption 02”, 300, RESIZABLE)

oCol2 = .Columns.Add(2,”Caption 03”, 300, RESIZABLE)

oCol3 = .Columns.Add(3,”Caption 04”, 300, RESIZABLE)

 

.Records.DeleteAll()

                .populate ()

 

                For i = 1 to 10

 

                               oRecord = .Records.Add()

 

                                oItem0 = oRecord.AddItem( “value “ + str(i) )

                                oItem1 = oRecord.AddItem( “value “ + str(i) )

                                oItem2 = oRecord.AddItem( “value “ + str(i) )

                                oItem3 = oRecord.AddItem( “value “ + str(i) )

next

 

.populate()       

 

endWith

No, but is very similar.

Must be someone out there who can give me an example in VB6 of how to easily add a row to a report.

What is the problem that you are having? Did you call the Populate method of the ReportControl after you added all of the rows?

I don't use the ReportControl much myself, but basically you have to add rows to the ReportControl using the ReportControl.Records.Add method. Once you have the record object, you can then add cells using the Record.AddItem method. The cells should match you column definitions. Once you have created all of your records, call ReportControl.Populate to display them (this is for efficient repainting).

This code is adapted from the CodeJock ReportControl sample:

Dim Record As ReportRecord     'Adds a new Record to the ReportControl's collection of records, this record will     'automatically be attached to a row and displayed with the Populate method     Set Record = Me.ReportControl1.Records.Add()         ' Add Cells to the record     Record.AddItem "Cell1 Text"     Record.AddItem "Cell2 Text"   ' Etc...     Me.ReportControl1.Populate   ' Show the record you just added

Good luck!