动态水晶报表的实现

                                         实现基本功能的动态水晶报表

    系统配置：VS2005+内嵌的水表

   

    目的：

         我也是刚接触.net不久，做项目过程中需要设计报表，可一个个的做起来烦啊，原来做过一个vb6的动态报表，用起来还不错，故也想弄一个水表的东东。因为水表接触时间不长，做的也不是很顺手，用了我半个月的时间才弄个大概模样，不当之处还请各位见谅。觉得有用就看看，没用就当没看到吧。

    

   目前实现的功能

        1、报表标题、页码显示格式、纸张大小、纸张方向、边距等的动态修改

        2、报表列标题的动态修改（2行也支持，但是感觉定义麻烦）

              最大允许用户定义40列（内部定义的公式总数决定的，呵呵）

             同时显示的列数必须<=提供的数据表里面的字段数，不让报错

        3、数据部分偷懒了，是和提供的数据表的顺序一致（本来想做两种方式的）

        4、分组头部分

             简单的显示分组名

        5、分组尾部分

              这部分能定义是否显示、以及组的小计，比如计数、求和等

        6、报表尾部分

             这部分能定义是否显示、以及总计信息，比如计数、求和等

 

 调用方法

      

        Dim strSql As String = "select a.EmployeeID,FirstName,Title,LastName,a.Region,a.postalCode,a.country,a.homephone,a.reportsto,CompanyName,ContactName,c.OrderID,ShipCity,ShipPostalCode,ProductID,UnitPrice,Quantity,Discount " & _
                      "from Employees a,Customers b,Orders c , [Order Details] d " & _
                       "where(a.EmployeeID = c.EmployeeID And b.CustomerID = c.CustomerID And c.OrderID = d.OrderID)"
        ds = Getdata(strSql)

        Dim rc As Integer
        Dim aa As New CryClsV1.AutoRepDoc

        rc = aa.CreateRepDoc(Sfile, ds.Tables(0), sInfo)‘Sfile是Ini格式的报表设置文件

                                                                         'sinfo是定义的报表左下角显示的内容
        If rc > 0 Then
            MsgBox(rc)
        Else
            CrystalReportViewer1.ReportSource = aa.ReportDoc
        End If