Public Class InterviewForm
'Public drPoCo As JobHuntingDataSet.PositionCompanyRow
'Public drP As JobHuntingDataSet.PositionRow
'Public drC As JobHuntingDataSet.CompanyRow
Private Sub InterviewForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If Not blnPoCoBound Then
companyComboBox.DataBindings.Clear()
companyComboBox.DataBindings.Add("Text", JobHuntingForm.PositionCompanyBindingSource, "CompanyID")
positionComboBox.DataBindings.Clear()
positionComboBox.DataBindings.Add("Text", JobHuntingForm.PositionCompanyBindingSource, "PositionID")
InterviewDateDateTimePicker.DataBindings.Clear()
InterviewDateDateTimePicker.DataBindings.Add("Text", JobHuntingForm.PositionCompanyBindingSource, "InterviewDate")
companyComboBox.DataSource = JobHuntingForm.JobHuntingDataSet.Company
companyComboBox.DisplayMember = "Name"
companyComboBox.ValueMember = "CompanyID"
positionComboBox.DataSource = JobHuntingForm.JobHuntingDataSet.Position
positionComboBox.DisplayMember = "Title"
positionComboBox.ValueMember = "positionID"
End If
End Sub
Private Sub EmployeeForm_Activated(sender As Object, e As EventArgs) Handles Me.Activated
If Me.Tag.Equals("Add") Then
JobHuntingForm.PositionCompanyBindingSource.AddNew()
companyComboBox.Text = "--Choose a Company--"
positionComboBox.Text = "--Choose a Position--"
InterviewDateDateTimePicker.Visible = False
Me.Text = "Add Interview Information"
saveButton.Text = "Save New Interview Setup"
intcancelButton.Text = "Cancel Setup"
ElseIf Me.Tag.Equals("Edit") Then
Me.Text = "Edit Interview Details"
saveButton.Text = "Save Changes"
intcancelButton.Text = "Cancel Changes"
'companyComboBox.Text = drC.Name.ToString
'positionComboBox.Text = drP.Title.ToString
End If
'drPoCo = JobHuntingForm.PositionCompanyBindingSource.Current.row
End Sub
Private Sub saveButton_Click(sender As Object, e As EventArgs) Handles saveButton.Click
If companyComboBox.SelectedIndex = -1 OrElse positionComboBox.SelectedIndex = -1 Then
JobHuntingForm.PositionCompanyBindingSource.CancelEdit()
MessageBox.Show("No Company Name or Position Title was selected", "No record was added", MessageBoxButtons.OK,
MessageBoxIcon.Information)
Exit Sub
ElseIf InterviewDateDateTimePicker.value < Date.Today Then
JobHuntingForm.PositionCompanyBindingSource.CancelEdit()
Exit Sub
MessageBox.Show("You chose a date before today, No record was saved")
ElseIf InterviewDateDateTimePicker.Value = Nothing Then
InterviewDateDateTimePicker.Value = "No Interview date was set"
JobHuntingForm.PositionCompanyBindingSource.EndEdit()
JobHuntingForm.PositionCompanyTableAdapter.Update(JobHuntingForm.JobHuntingDataSet.PositionCompany)
Me.Hide()
Else
JobHuntingForm.PositionCompanyBindingSource.EndEdit()
JobHuntingForm.PositionCompanyTableAdapter.Update(JobHuntingForm.JobHuntingDataSet.PositionCompany)
Me.Hide()
End If
End Sub
Private Sub Cancelbutton_Click(sender As Object, e As EventArgs) Handles intcancelButton.Click, Me.FormClosing
JobHuntingForm.PositionCompanyBindingSource.CancelEdit()
Me.Hide()
End Sub
Private Sub yesRadioButton_CheckedChanged(sender As Object, e As EventArgs) Handles yesRadioButton.CheckedChanged, noRadioButton.CheckedChanged
If noRadioButton.Checked = True Then
InterviewDateDateTimePicker.Visible = False
ElseIf yesRadioButton.Checked = True Then
InterviewDateDateTimePicker.Visible = True
End If
End Sub
End Class
My comboboxes go blank after I make a selection and a null value is entered
↧
Binding DataGridView to Junction (many-to-many) table.
↧