Add record from ADODB.Recordset

Again, guide me what is wrong with the attached project 'Report Try.zip'.

Hi, change
Set pItem = Record.AddItem(adoRS!CompanyName)
with
Set pItem = Record.AddItem(adoRS.Fields.Item("CompanyName").Value)

Hi

The Online Documentation has step by step instructions and an example.  Just go to the help file and search for SetVirtualMode

In the Online Documentation, check out

Private Sub wndReportControl_BeforeDrawRow

In that event, replace the data in the sample with the recordset data.

You should be able to figure it all out with the documentation and the info in this post ;)

I am still waiting

How many rows are you going to have?  The data only has 93 rows which is not enough to need Virtual Mode

Short of writing the code for you (which I don't have time to do) I'm not sure what else to tell you.  The SetVirtualMode section of the help file has pretty much everything you need except you'll replace the given values with values from the recordset the BeforeDrawRow event.

Also, the example generates 20000 random records.  You won't need to do that part either since you already have your records in the recordset.

So, I think you would do the following:

set your array variable.
Loop through the recordset, adding the values to the array
add a Template record (as it does in the help file)
reportcontrol.populate
reportControl.SetCustomDraw xtpCustomBeforeDrawRow

in BeforeDrawRow set it up to use your columns and your array variable.