[larbihamri]

السلام عليكم 
كيف حال الجميع ؟
بعد إذنكم ، كيف يمكنني طباعة سجل محدد في الداتا قريد فيو باستخدام الكريستال ريبورت ؟
المشروع المرفق يبين ما أريده

[طالب برمجة]

تعديل للكود

PHP كود :

Public Class Form1

    Private Sub TBindingNavigatorSaveItem_Click(sender As System.Object, e As System.EventArgs) Handles TBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.TBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.DBDataSet)

    End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'DBDataSet.T' table. You can move, or remove it, as needed.
        Me.TTableAdapter.Fill(Me.DBDataSet.T)
        TDataGridView.MultiSelect = False
        TDataGridView.SelectionMode = DataGridViewSelectionMode.FullRowSelect
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim rpt As New CrystalReport1
        rpt.SetDataSource(DBDataSet.T.Where(Function(r) r.المعرف = TBindingSource.Current("المعرف")).CopyToDataTable)

        Form2.CrystalReportViewer1.ToolPanelView = CrystalDecisions.Windows.Forms.ToolPanelViewType.None
        Form2.CrystalReportViewer1.ReportSource = rpt
        Form2.ShowDialog()

    End Sub


End Class 


[larbihamri]

شكرا اخي بارك الله فيك
عند تجريب الكود تظهر لي رسالة خطأ عند النقر على زر الطباعة

[larbihamri]

[طالب برمجة]

أنا جربت المرفق واشتغل بعدما قمت بتعديل السطر المشار اليه في الملف App.config الموجود ضمت قائمة ملفات المشروع


فجرب على المرفق الذي في الموضوع

[larbihamri]

بارك الله فيك و علمك و زادك من العلم علما وحكمة و بارك الله في اهلك و صحتك و مالك
شكرا