[RESOLVED] Q: Data Report Sub-Report?

Does Data Report supports sub-reports? i mean is it capable? coz i have 2 recordsets that the data report should have...

Anyone encountered this? any insights of how am i going to do this? advices?

Thanx...

Hi,

Yes, you may assign the appropriate controls in the details section to resemble as a subreport. but embedding another data report inside a data report
i think is not possible...I don't know with the other guys here...

Greg

you know how to set a group header datasource programmatically? anyone?

Still having problems here.. Please help!!! im almost finished with my work but not knowing how to set grouping on a datareport gives me hell of a headache.
i searched for the topic but leads me to nothing. please help!

Hi,

Can you post the a draft on your desired output/report?

Greg

Solve it! Whew! I'll Paste the code here for Reference of those who will have the same problems as me.

Good job dude....

If you'll paste the code, don't forget to put VB tags on it...


Greg:) :)

This is i want my Report to look like...

Group Header(Section4)---------------------

Computer Name: Comp1
Ip Address: Blah.blah.blah.blah

Detail(Section1)----------------------

Applications Used: VB
Excel
Etc...


this is how i achieve this programmatically:

vb Code:

Dim str, cond As String
Dim rs As New ADODB.Recordset
str = "Select * from tblUsers"
 
'Shaped Recordset
str = "SHAPE {" & str & "} APPEND "
str = str & "({SELECT * FROM qryUserApps} AS User "
str = str & "RELATE UserID TO UserID) AS UserApps"
 
 
 
Dim ConnStr As String
Dim Conn As New ADODB.Connection
Set Conn = New ADODB.Connection
 
ConnStr = "Data Provider=Microsoft.Jet.OLEDB.4.0; " & _
          "Provider=MSDataShape;Data Source=" & App.Path & "\Database.mdb;"
If Conn.State = 1 Then Conn.Close
Conn.ConnectionString = ConnStr
Conn.Open
 
If rs.State = 1 Then rs.Close
rs.Open str, Conn, 1, 3, 1
 
'For the controls on the group header section,
'add a textbox and set its datafield
 
'Set each Controls data members(controls which are located only on detail section of the data report)
With drCmiUser.Sections("Section1").Controls 
    .Item("txtApplication").DataMember = "UserApps"
     'UserApps is a Shaped Recordset
End With
'NOTE: Dont forget to set the Controls DataField on the Data Report
 
 
drCmiUser.Orientation = rptOrientLandscape
Set drCmiUser.DataSource = rs
drCmiUser.Show vbModal

Hope this help people in the future...

vb Code:

thanks

________
Website design

This is exactly what I'm looking for! Can you help me on this? DO I have to shape a recordset for my datareport? My question is here:

http://www.vbforums.com/showthread.php?t=554972

Please, please help me in the coding!