[newvbdev]

شكراً جزيلاً لرد حضرتك, وأنا كنت كاتب مثال فقط بدلاً من نقل كل المدخلات اللى عندى
أنا عملت مثال صحيح دلوقتى بكود مطابق:

كود :

Imports System.Data
Imports System.Data.SqlClient
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared

Public Class Form1
   Dim ds As New DataSet
   Dim adapter As New SqlDataAdapter

   Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
       Dim sqlconnstring As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=" & Application.StartupPath & "\114a.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
       sqlconnstring.Open()

       Dim cmd1 As New SqlCommand("SELECT Movements.ID, Movements.Product_ID, Movements.Quantity, Movements.Price, Products.ID, Products.Name FROM Movements LEFT OUTER JOIN Products ON Movements.Product_ID = Products.ID", sqlconnstring)
        
        adapter.SelectCommand = cmd1
       adapter.Fill(ds, "Table1")

       Dim objRpt As New CrystalReport1
       objRpt.SetDataSource(ds.Tables("Table1"))
       CrystalReportViewer1.ReportSource = objRpt
       CrystalReportViewer1.Refresh()
   End Sub
End Class

المرفقات بها صورة توضح التفاصيل الكاملة