Public Class Form2
Private Sub CheqsBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheqsBindingNavigatorSaveItem.Click
Me.Validate()
Me.CheqsBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.____SHIC_be1DataSet)
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.CheqsTableAdapter.Fill(Me.____SHIC_be1DataSet.cheqs)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim res =
From x In Me.____SHIC_be1DataSet.cheqs
Where x.cheq_ID = TryCast(CheqsBindingSource.Current, DataRowView).Item("Cheq_ID")
If IsDBNull(res(0).Item("Cheq_modf")) Then res(0).Item("Cheq_modf") = String.Empty
Form1.ReportViewer1.LocalReport.DataSources(0).Value = res.ToList
Form1.ReportViewer1.RefreshReport()
Form1.Show()
Me.Hide()
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
CheqsBindingSource.Filter = "name1 like '%" & TextBox1.Text.Trim & "%'"
End Sub
End Class