[ابو ليلى]

السلام عليكم و رحمة الله و بركاته


اولاً قم بتصميم استعلام في القاعدة كما يلي 


ثانياً اتبع الخطوات في الصورة



الان من جهة البرنامج اضف هذا الاجراء لديك

PHP كود :

   Private Sub GetSelect()
        Using Con As New Data.OleDb.OleDbConnection With {.ConnectionString = My.Settings.mllsConnectionString}
            Using Da As New OleDb.OleDbDataAdapter("Select * from Q1", My.Settings.mllsConnectionString)
                Da.Fill(Me.MllsDataSet.Q1)
            End Using
        End Using
    End Sub 


و هذا لزر الطباعة (طباعة تقرير شامل)

PHP كود :

       GetSelect()
        Dim res =
                From x In Me.MllsDataSet.Q1
                Where x.id = TryCast(TB1BindingSource.Current, DataRowView).Item("id")


        If IsDBNull(res(0).Item("names")) Then res(0).Item("names") = String.Empty

        Form2.ReportViewer1.LocalReport.DataSources(0).Value = res.CopyToDataTable
        Form2.ReportViewer1.RefreshReport()
        Form2.Show() 


وكذلك هذه الصورة لتنسيق التقرير ليكون قادراً على عرض تفاصيل مرتبطة بسجل محدد


صورة عن التقرير



بالتوفيق للجميع.