[ممدوح]

عموما يجب ان تقوم بالاستعلام وتملئ جدول تقوم بربط التقرير بالجدول مثل التالي

كود :

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim daa As New SqlDataAdapter("SELECT * FROM [Table1] WHERE [ID]=@id", cnn)
    daa.SelectCommand.Parameters.AddWithValue("@id", 2)

    Dim tbl As New DataTable
    daa.Fill(tbl)

    Dim rpt As New CrystalReport1
    rpt.SetDataSource(tbl)
    Me.CrystalReportViewer1.ReportSource = rpt

End Sub