主从表的报表（简单范例）

 

注意：要配置xsd架构，和对应的强类型的dataset

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load

 

 

        Dim conn As New SqlConnection("server=localhost;database=Northwind;uid=sa;pwd=123")

        Dim cmd1 As New SqlCommand("select * from Orders where OrderID<=10251", conn)

        Dim cmd2 As New SqlCommand("select * from [Order Details] where OrderID<=10251", conn)

        Dim sqldpr1 As New SqlDataAdapter(cmd1)

        Dim sqldpr2 As New SqlDataAdapter(cmd2)

        conn.Open()

        sqldpr1.Fill(ds2, "Orders")

        sqldpr2.Fill(ds2, "order details")

        conn.Close()

        Dim report As New CrystalReport2()

        report.SetDataSource(ds2)

 

        Dim GetTextObject As TextObject

 

        ' 按名称获取 ReportObject，将其转换为 TextObject，并返回此对象。

 

        GetTextObject = report.ReportDefinition.ReportObjects.Item("my001")

 

        GetTextObject.Text = "XXXX系统"

 

 

        Me.CrystalReportViewer1.ReportSource = report

    End Sub

 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim r As CrystalReport2 = CType(Me.CrystalReportViewer1.ReportSource, CrystalReport2)

        Dim GetTextObject As TextObject

 

        ' 按名称获取 ReportObject，将其转换为 TextObject，并返回此对象。

 

        GetTextObject = r.ReportDefinition.ReportObjects.Item("my001")

 

        'MessageBox.Show(GetTextObject.Text)

    End Sub