Learn how to a build a cloud-first strategyRegister Now

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1977
  • Last Modified:

Problem with Group Headers in VB6 Data report designer

I have been searching and trying some things to make these sections (group headers) work in my report.  I have set the sections up in my report and all appears ok there.
My code looks like this:

    ' Connect the Recordset to the DataReport.
    Set rptumpapp1.DataSource = rs1
    rptumpapp1.WindowState = vbMaximized
    rptumpapp1.Sections("section2").Controls("Text29").DataField = "goalump2"
    rptumpapp1.Sections("section4").Controls("Text38").DataField = "goalump1"
    rptumpapp1.Sections("section6").Controls("Text39").DataField = "fieldump1"
    rptumpapp1.Sections("section8").Controls("Text40").DataField = "fieldump2"
    rptumpapp1.Sections("section10").Controls("Text41").DataField = "fieldump3"
    rptumpapp1.Sections("section12").Controls("Text42").DataField = "boundaryump1"
    rptumpapp1.Sections("section14").Controls("Text43").DataField = "boundaryump2"
    rptumpapp1.Sections("section16").Controls("Text44").DataField = "boundaryump3"
    rptumpapp1.Show vbModal

I am now getting an error that my report sections do not match my datasource....any ideas?
0
andrewl77
Asked:
andrewl77
  • 3
  • 2
1 Solution
 
p_sieCommented:
You have 16! sections?
How does your datasource look like?
0
 
andrewl77Author Commented:
This is my datasource:

' Open the Recordset
    Set rs1 = conn.Execute("select fixtures.*, (select teamname from clublist where fixtures.hteamno = clublist.id) as hometeam, (select teamname from clublist where fixtures.ateamno = clublist.id) as awayteam, (Select gradename from competitiongrades where fixtures.gradecode = competitiongrades.id) as gradename, (select leaguename from competitions where fixtures.leagueno = competitions.leagueno) as leaguename, (select groundname from grounds where fixtures.venue = grounds.groundid) as groundname, (select groundstreet from grounds where fixtures.venue = grounds.groundid) as groundstreet, (select groundtown from grounds where fixtures.venue = grounds.groundid) as groundtown, (select groundmelways from grounds where fixtures.venue = grounds.groundid) as groundmelways," & _
    " (select fieldno from appointments where fixtures.gameno = appointments.gameno) as fieldno, (select fieldump1 from appointments where fixtures.gameno = appointments.gameno) as fieldump1val, (select displayname from umpire where umpire.umpireno = fieldump1val) as fieldump1, (select homeph from umpire where umpire.umpireno = fieldump1val) as fu1home, (select mobileph from umpire where umpire.umpireno = fieldump1val) as fu1mobile, (select fieldump2 from appointments where fixtures.gameno = appointments.gameno) as fieldump2val, (select displayname from umpire where umpire.umpireno = fieldump2val) as fieldump2, (select homeph from umpire where umpire.umpireno = fieldump2val) as fu2home," & _
    " (select mobileph from umpire where umpire.umpireno = fieldump2val) as fu2mobile, (select fieldump3 from appointments where fixtures.gameno = appointments.gameno) as fieldump3val, (select displayname from umpire where umpire.umpireno = fieldump3val) as fieldump3, (select homeph from umpire where umpire.umpireno = fieldump3val) as fu3home, (select mobileph from umpire where umpire.umpireno = fieldump3val) as fu3mobile, (select boundaryump1 from appointments where fixtures.gameno = appointments.gameno) as boundaryump1val, (select displayname from umpire where umpire.umpireno = boundaryump1val) as boundaryump1, (select homeph from umpire where umpire.umpireno = boundaryump1val) as bu1home," & _
    " (select mobileph from umpire where umpire.umpireno = boundaryump1val) as bu1mobile, (select boundaryump2 from appointments where fixtures.gameno = appointments.gameno) as boundaryump2val, (select displayname from umpire where umpire.umpireno = boundaryump2val) as boundaryump2, (select homeph from umpire where umpire.umpireno = boundaryump2val) as bu2home, (select mobileph from umpire where umpire.umpireno = boundaryump2val) as bu2mobile, (select boundaryump3 from appointments where fixtures.gameno = appointments.gameno) as boundaryump3val, (select displayname from umpire where umpire.umpireno = boundaryump3val) as boundaryump3, (select homeph from umpire where umpire.umpireno = boundaryump3val) as bu3home," & _
    " (select mobileph from umpire where umpire.umpireno = boundaryump3val) as bu3mobile, (select goalump1 from appointments where fixtures.gameno = appointments.gameno) as goalump1val, (select displayname from umpire where umpire.umpireno = goalump1val) as goalump1, (select homeph from umpire where umpire.umpireno = goalump1val) as gu1home, (select mobileph from umpire where umpire.umpireno = goalump1val) as gu1mobile, (select goalump2 from appointments where fixtures.gameno = appointments.gameno) as goalump2val, (select displayname from umpire where umpire.umpireno = goalump2val) as goalump2, (select homeph from umpire where umpire.umpireno = goalump2val) as gu2home, (select mobileph from umpire where umpire.umpireno = goalump2val) as gu2mobile," & _
    " (select town from umpire where umpire.umpireno = fieldump1val) as fu1sub, (select town from umpire where umpire.umpireno = fieldump2val) as fu2sub, (select town from umpire where umpire.umpireno = fieldump3val) as fu3sub, (select town from umpire where umpire.umpireno = boundaryump1val) as bu1sub,(select town from umpire where umpire.umpireno = boundaryump2val) as bu2sub, (select town from umpire where umpire.umpireno = boundaryump3val) as bu3sub, (select town from umpire where umpire.umpireno = goalump1val) as gu1sub, (select town from umpire where umpire.umpireno = goalump2val) as gu2sub, (select note from globalnotes where fixtures.gamedate >= globalnotes.start and fixtures.gamedate <= globalnotes.enddate) as globalnote" & _
    " from fixtures where fixtures.gamecompleted = 0 and fixtures.leagueno = " & (league.ItemData(league.ListIndex)) & " And fixtures.roundno = " & (roundno.ItemData(roundno.ListIndex)) & " group by fixtures.gameno order by hometeam", , adCmdText)
0
 
p_sieCommented:
As I can see in your datasource, you only group by gameno.
So all the other fields should be in the same section!

Datareportdesigner is not so smart, there is only one type of structure possible:

group header
   group header
      group header
          details section
      group footer
    group footer
group footer

number of group header/footers is variable.
0
 
andrewl77Author Commented:
I have stripped it back to try and make 1 appear.  However it still doesn't work...think i may have to percerver with trying to get crystal to work!
0
 
andrewl77Author Commented:
Comment accepted as answer...had to change the way i was going to do this.
0

Featured Post

Prep for the ITIL® Foundation Certification Exam

December’s Course of the Month is now available! Enroll to learn ITIL® Foundation best practices for delivering IT services effectively and efficiently.

  • 3
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now