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
![[صورة مرفقة: 317313849.png]](http://www12.0zz0.com/2017/12/08/00/317313849.png)
