[العيدروس]

السلام عليكم
اخواني الكرام ارجو فضلا من سيادتكم و أملي المساعدة في كيفية طباعة ما سيظهر بالداتاغريد حسب نتائج البحث
حاولت قدر امكانيتي البسيطة اضافة  reportviewer
لكن كيف اكمل و كيف اضفته لست ادري بصراحة.املي بالله ثم بكم المساعدة لأني اريد ان اعرف فقط كيف يتم تمرير محتوى الداتاغريد الى صفحة الطباعة و بارك الله فيكم اخواني

[a.ahmed]

PHP كود :

Imports System.Data.OleDb

Public Class Form21

    Dim Conn As New OleDbConnection("Provider=Microsoft.Ace.OLEDB.12.0;Data Source=|DataDirectory|\Data.accdb")
    Dim DataSetTable As New DataSet

    Dim SQLTable As String = "Select * From EmpInfo"

    Private Sub Form21_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call LoadData()
    End Sub

    Public Sub LoadData()

        DataSetTable.Clear()
        Dim DataAdapterXDell As New OleDbDataAdapter(SQLTable, Conn)
        DataAdapterXDell.Fill(DataSetTable, "EmpInfo")

        Call DataGrid_Formats()
    End Sub

    Public Sub DataGrid_Formats()

        DataGridView1.DataSource = DataSetTable
        DataGridView1.DataMember = "EmpInfo"
        DataGridView1.Refresh()


        DataGridView1.Columns(0).HeaderText = "الترقيم"
        ''DataGridView1.Columns(0).Width = 150
        DataGridView1.Columns(1).HeaderText = "الاسم"
        DataGridView1.Columns(2).HeaderText = "اللقب"
        DataGridView1.Columns(3).HeaderText = "تاريخ الميلاد"
        DataGridView1.Columns(4).HeaderText = "هاتف الولي"
        DataGridView1.Columns(5).HeaderText = "العنوان"
        DataGridView1.RowHeadersWidth = 30
        DataGridView1.Columns(0).Width = 150
        DataGridView1.Columns(1).Width = 200
        DataGridView1.Columns(2).Width = 150
        DataGridView1.Columns(3).Width = 150
        DataGridView1.Columns(4).Width = 150
        DataGridView1.Columns(5).Width = 150
    End Sub

    Private Sub TextBox6_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox6.TextChanged
        SQLTable = "SELECT * FROM EmpInfo WHERE FirstName LIKE '%" & TextBox6.Text & "%' "
        DataSetTable.Clear()
        Dim DataAdapters As New OleDbDataAdapter(SQLTable, Conn)
        DataAdapters.Fill(DataSetTable, "EmpInfo")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.ReportViewer1.LocalReport.DataSources.Clear()
        Form2.ReportViewer1.LocalReport.DataSources.Add(New Microsoft.Reporting.WinForms.ReportDataSource("DataSet1", DataSetTable.Tables("EmpInfo")))
        Form2.ReportViewer1.LocalReport.ReportEmbeddedResource = Me.GetType().Namespace & "." & "Report1.rdlc"
        Form2.ReportViewer1.RefreshReport()
        Form2.Show()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        SQLTable = "SELECT * FROM EmpInfo "
        DataSetTable.Clear()
        Dim DataAdapters As New OleDbDataAdapter(SQLTable, Conn)
        DataAdapters.Fill(DataSetTable, "EmpInfo")

        Form2.ReportViewer1.LocalReport.DataSources.Clear()
        Form2.ReportViewer1.LocalReport.DataSources.Add(New Microsoft.Reporting.WinForms.ReportDataSource("DataSet1", DataSetTable.Tables("EmpInfo")))
        Form2.ReportViewer1.LocalReport.ReportEmbeddedResource = Me.GetType().Namespace & "." & "Report1.rdlc"
        Form2.ReportViewer1.RefreshReport()
        Form2.Show()
    End Sub

End Class 


[العيدروس]

السلام عليكم.ما قصرت استاذ أحمد .الله يرضى عليك و على والديك .بيّض الله وجهك و أدخلك جنات النعيم ان شاء الله.الهي يزيدك من علمه و يزيدك من لطفه و كرمه.كلو تمام.بقي لي استاذ أحمد تساؤل اخير لو تفضلت لطف منك..لو كان عندي مثلا تاكست بكس رقم 1 بالفورم1 .بها تاريخ اليوم او التوقيت و احب يظهر بالتقرير.التاكست بكس 1 ملهوش اي ارتباط بقاعدة البيانت.كيف اخلي النص يلي فيه او التاريخ او التوقيت يظهر بالتقرير.بارك الله فيك وجزاك الله خير