Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Data Report - Group Section, Thank You
Message
 
To
12/11/2002 02:56:33
General information
Forum:
Visual Basic
Category:
Other
Miscellaneous
Thread ID:
00721432
Message ID:
00721499
Views:
8
Can http://support.microsoft.com/default.aspx?scid=kb;en-us;200591 helps you?


>Hi,
>
>I'm not using DataEnvironment for datareport, it just assigned a recordset to its datasource, then assign the column to each datafield. It is running well if the data report without group section.
>
>Now it is the problem, I'm doing the samething to group section as I did at the other sections (eg. detail & header), but it prompt a error "Data report sections not match to the data source" (something like that cause I'm using Chinese Ver.). Would you mind to give me some hints on it?
>
>Dim rs As New ADODB.Recordset
>
>Debug.Print "select reqno,req_date,req_dept,req_no,req_na,req_un,req_oq,req_rm from matreq order by req_no,req_un,req_dept,reqno,req_date"
>
>rs.Open "select reqno,req_date,req_dept,req_no,req_na,req_un,req_oq,req_rm from matreq order by req_no,req_un,req_dept,reqno,req_date", status.cn, adOpenDynamic, adLockBatchOptimistic, adCmdText
>
> Set stk_puTotalRpt.DataSource = rs
> With stk_puTotalRpt.Sections("section6") 'Group Section
> .Controls("text1").DataField = "req_no"
> End With
> With stk_puTotalRpt.Sections("section1") 'Detail Section
> .Controls("text4").DataField = "reqno"
> .Controls("text5").DataField = "req_date"
> .Controls("text6").DataField = "req_dept"
> .Controls("text7").DataField = "req_na"
> .Controls("text8").DataField = "req_oq"
> .Controls("text9").DataField = "req_rm"
> End With
Éric Moreau, MCPD, Visual Developer - Visual Basic MVP
Conseiller Principal / Senior Consultant
Moer inc.
http://www.emoreau.com
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform