webing

<CR:CrystalReportViewer  ID="CrystalReportViewer1" runat="server" 
                                                                        AutoDataBind="True" Height="70px" ReportSourceID="CrystalReportSource1" 
                                                                        Width="250px" />
                                                                    <CR:CrystalReportSource ID="CrystalReportSource1" runat="server">
                                                                        <Report FileName="CrystalReport.rpt">
                                                                        </Report>
                                                                    </CR:CrystalReportSource> 
 
     Private Sub BindReport()
 
        If Session("dtAlumno") IsNot Nothing Then
 
            Dim crystalReport As New ReportDocument
            Dim dtAlumno As DataTable = New DataTable("dtAlumno")
            dtAlumno = Session("dtAlumno")
            Dim dsDataSet As New DataSet
            Dim dt As DataTable = dtAlumno.Copy
 
            dsDataSet.Tables.Add(dt)
            dsDataSet.Tables(0).TableName = "dtAlumno"
            crystalReport.Load("D:\Version 2008\Interfaz\CrystalReport.rpt")
            crystalReport.SetDataSource(dsDataSet.Tables("dtAlumno"))
            CrystalReportViewer1.ReportSource = crystalReport
            'CrystalReportViewer1.DataBind()
 
        End If
    End Sub