[طالب برمجة]

تعديل للكود

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