VBO Multi Search VB2008

Test yourself to fix it. '''

''' Multi filtering in this application is done using multiple queries. ''' For each filter per field = a single query per that field. ''' Look at ApplicationDataSet.xsd diagram for the 3 queries generated. '''

''' Public Class Form1 Private Sub ApplicantBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ApplicantBindingNavigatorSaveItem.Click Me.Validate() Me.ApplicantBindingSource.EndEdit() Me.TableAdapterManager.UpdateAll(Me.ApplicationDataSet) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'TODO: This line of code loads data into the 'ApplicationDataSet.Applicant' table. You can move, or remove it, as needed. Me.ApplicantTableAdapter.Fill(Me.ApplicationDataSet.Applicant) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Validate() Me.ApplicantBindingSource.EndEdit() Me.TableAdapterManager.UpdateAll(Me.ApplicationDataSet) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Try Me.ApplicantTableAdapter.FillByFirstname(Me.ApplicationDataSet.Applicant, TextBox1.Text) Catch ex As System.Exception System.Windows.Forms.MessageBox.Show(ex.Message) End Try End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Try Me.ApplicantTableAdapter.FillByLastname(Me.ApplicationDataSet.Applicant, TextBox2.Text) Catch ex As System.Exception System.Windows.Forms.MessageBox.Show(ex.Message) End Try End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Try Me.ApplicantTableAdapter.FillByAdress(Me.ApplicationDataSet.Applicant, TextBox3.Text) Catch ex As System.Exception System.Windows.Forms.MessageBox.Show(ex.Message) End Try End Sub End Class