Quantcast
Channel: Windows Forms Data Controls and Databinding forum
Viewing all articles
Browse latest Browse all 2535

Binding DataGridView to Junction (many-to-many) table.

$
0
0
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

Viewing all articles
Browse latest Browse all 2535

Trending Articles