Private Sub JobHuntingForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.PositionCompanyTableAdapter.Fill(Me.JobHuntingDataSet.PositionCompany)
Me.CompanyTableAdapter.Fill(Me.JobHuntingDataSet.Company)
Me.PositionTableAdapter.Fill(Me.JobHuntingDataSet.Position)
Me.EmployeeTableAdapter.Fill(Me.JobHuntingDataSet.Employee)
Me.ContactTableAdapter.Fill(Me.JobHuntingDataSet.Contact)End Sub
Private Sub ziptextBox_TextChanged(sender As Object, e As EventArgs) Handles zipTextBox.TextChanged If zipTextBox.TextLength > 0 Then Me.CompanyBindingSource.Filter = "Salary Like '" & zipTextBox.Text & "%'" allPositionButton.Visible = True Else Me.CompanyBindingSource.RemoveFilter() End If End Sub
I want to filter the 'Positions' that have a particular 'Company' Zip Code