水晶报表,大家帮帮小弟我,马上结贴

水晶报表,大家帮帮我,在线等！马上结贴!
水晶报表里的详细资料可自动循环数据并列出
  Conn.Open()
                Dim   sql   As   String
                sql   =   "SELECT   *   FROM   主   WHERE   (id   =   43) "
                Dim   sqlcmd   As   New   SqlDataAdapter(sql,   Conn)
                Dim   ds   As   New   发票数据集
                sqlcmd.Fill(ds,   "发票数据 ")
                Dim   co   As   Integer
                co   =   ds.Tables( "发票数据 ").Rows.Count
                If   co   <   8   Then
                        For   i   As   Integer   =   1   To   8   -   co
                                ds.Tables( "发票数据 ").Rows.Add(ds.Tables( "发票数据 ").NewRow())
                        Next
                End   If
                Conn.Close()
                Dim   cpo   As   New   发票
                cpo.SetDataSource(ds.Tables( "发票数据 "))
                Dim   cot
                cot   =   cpo.ReportDefinition.ReportObjects.Item( "Text9 ")
                cot.text   =   Year(Now)   &   "     "   &   Month(Now)   &   "     "   &   Microsoft.VisualBasic.DateAndTime.Day(Now)
                CrystalReportViewer1.ReportSource   =   cpo


我的数据只有三条,但因发票格式,不得不填充至8行,但是就成了下面的样子~

                                                                              2007     1     17
什么什么公司
  1                                                                       现金收费
中国人


2006年11月第一种收费             32           1.52                 48.64
2006年11月第二种收费             61           1.52                 97.28
2006年11月第三种收费               0           1.52                   0.00
        年     月
        年     月