none
vb6 datareport 分組 列印 RRS feed

  • 問題

  • 小弟 在做datareport的 分組列印,

    是要做上下班刷考,假每個人每天有刷兩筆資料然後有10個人

    我想要列出

    P1

    ==============

    刷卡紀錄1

    刷卡紀錄2

    ==============

    P2

    ==============

    刷卡紀錄1

    刷卡紀錄2

    ==============

     

    P3

    ==============

    刷卡紀錄1

    刷卡紀錄2

    ==============

    .....

    ....

    有看到使用環境設計師去設定分組,

    不過我想用程式碼去分組,,不過試了很久,都沒辦法

    請問前輩要怎麼寫??

                        strsql = "Select *  from  DutyOutcome " & str & "order by [姓名]                       
                        strsql = "SHAPE {" & strsql & "} AS Command1 COMPUTE Command1 BY 姓名 "

                        MYR.Open strsql, MYC, 3, 3 
                        Set DataReport1.DataSource = MYR
                                      
                        DataReport1.Sections("Section1").Controls("Text2").DataMember = "姓名"
                        DataReport1.Sections("Section1").Controls("Text3").DataMember = "姓名"
                                                          
                        DataReport1.Sections("Section1").Controls("Text1").DataField = "姓名"
                        DataReport1.Sections("Section1").Controls("Text2").DataField = "上班"
                        DataReport1.Sections("Section1").Controls("Text3").DataField = "下班"
                                           
                        DataReport1.Show vbModal

     

     

    2010年10月28日 上午 11:41

解答