CRYSTAL REPORT/VB.NET

Citação:

:
então seu problema é desde o começo, vc quer saber como criar o relatório? se for a parte de código pode ser assim...

  
    Private Sub SalvarListaPDFToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SalvarListaPDFToolStripMenuItem.Click
        Dim bllLivro As New Livro
        bllLivro.Caminho = Application.StartupPath
        Dim ds As DataSet
        ds = bllLivro.Busca([Ô]select livros.titulo as Titulo,editoras.nome as Editora,autores.nome as Autor from ((livros inner join editoras on livros.editora=editoras.id)inner join autores on livros.autor=autores.id) order by livros.titulo asc[Ô])
        If ds.Tables(0).Rows.Count <= 0 Then
            MessageBox.Show([Ô]Sem registros[Ô])
        Else
            Dim Tabela As New dsLivraria.dtListaLivrosDataTable
            Dim LinhaTB As dsLivraria.dtListaLivrosRow
            For index = 0 To ds.Tables(0).Rows.Count - 1
                LinhaTB = Tabela.NewRow()
                LinhaTB([Ô]titulo[Ô]) = ds.Tables(0).Rows(index).Item([Ô]titulo[Ô]).ToString
                LinhaTB([Ô]autor[Ô]) = ds.Tables(0).Rows(index).Item([Ô]autor[Ô]).ToString
                LinhaTB([Ô]editora[Ô]) = ds.Tables(0).Rows(index).Item([Ô]editora[Ô]).ToString
                Tabela.AdddtListaLivrosRow(LinhaTB)
            Next
            Dim DT As DataTable = Tabela

            Dim oRP As ReportDocument
            oRP = New crpListaLivros
            oRP.SetDataSource(DT)

            Dim saveFileDialog1 As New SaveFileDialog()
            saveFileDialog1.Filter = [Ô]Arquivo PDF (*.PDF)|*.PDF[Ô]
            saveFileDialog1.FilterIndex = 2
            saveFileDialog1.RestoreDirectory = True
            If saveFileDialog1.ShowDialog() = DialogResult.OK Then
                CType(oRP, ReportDocument).ExportToDisk(ExportFormatType.PortableDocFormat, saveFileDialog1.FileName)
            End If
        End If
    End Sub
 

pode parecer confuso, mas esta em camada, de qq forma da pra entender q vc precisa de um dataset ali no inicio....
gosto de fazer meus relatórios baseados em dataset dentro do projeto, então tenho um dataset dentro do projeto com os diversos datatable, sendo um pra cada relatório, ou vários no caso de sub reports....alimento esses datatable com o q quero q apareca no relatório, e assim vai....no caso nem tela de visualização do relatório eu fiz, so pra mostrar até o ponto q ele salva e acabou....

  
        Using connection As OleDbConnection = AbreConexao()
            Using da As OleDbDataAdapter = New OleDbDataAdapter(sql, connection)
                Dim ds As DataSet = Nothing
                ds = New DataSet()
                da.Fill(ds)
                Return ds
            End Using
        End Using