[asemshahen5]

اعمل DataSet و ضع فيها Table1 و Table2 أو عند اختيار قاعدة البيانات في معالج السيكول اختر الجدولين .
و ضع الكود مع التغيير في الاستعلامات بما يتناسب مع جداولك :

PHP كود :

   Dim cn As New SqlClient.SqlConnection("Server =(local);database=ALASEMXT;integrated security=true")
    Function FillDT(StrSQL As String) As DataTable
        Dim da As New SqlClient.SqlDataAdapter(StrSQL, cn)
        Dim dt As New DataTable
        da.Fill(dt)
        Return dt
    End Function
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim ds As New DataSet
        ds.Tables.Add(FillDT("Select * From AccountsTree  Where AccountID = 1 "))
        ds.Tables.Add(FillDT("Select * From ALL_USERS  Where ID = 1 "))
        ds.Tables(0).TableName = "AccountsTree"
        ds.Tables(1).TableName = "ALL_USERS"
        Dim report As New CrystalReport1
        report.SetDataSource(ds)
        CrystalReportViewer1.ReportSource = report
        CrystalReportViewer1.Refresh()
    End Sub