DataGridViewComboBoxColumn .ValueMember probleem

[xanderke]

Hallo hallo,

Graag zou ik een datagridviewcomboboxcolumn toevoegen aan datagrid die die gegevens verbind met een dataset die in de datagrid is opgevuld.
wat ik nu krijg is een combobox en een datagrid (met gegevens) maar deze staan niet in verbinding met elkaar...

onderstaande de code:

Private Sub HaalContactgegevens()
        Try
            contactgegevensKlantDataGridView.Columns.Clear()
            Dim mijnContactgegevensLijst As New ContactgegevenLijst
            mijnContactgegevensLijst.OpvullenContactgegevensDAklant(Integer.Parse(klantnrTextBox.Text))

            tmpContactgegevenslijst = mijnContactgegevensLijst.GeefContactgegevenslijstDAklant
            contactgegevensKlantenDS = New DataSet
            tmpContactgegevenslijst.Fill(contactgegevensKlantenDS, "Contactgegevens")

            Dim mijnContactmiddelenLijst As New ContactmiddelenLijst
            mijnContactmiddelenLijst.OpvullenLijst()
            Dim tmpContactmiddelenlijst As List(Of Contactmiddel) = mijnContactmiddelenLijst.GeefContactmiddelenlijst

            Dim contactmiddelkolom As New DataGridViewComboBoxColumn
            With contactmiddelkolom
                .DataSource = tmpContactmiddelenlijst
                .DataPropertyName = "ContactmiddelID"
                .DisplayMember = "Contactmiddel"
                ' .ValueMember = contactgegevensChauffeursDS.Tables("Contactgegevens") '.Columns("ContactmiddelPersID").ToString
                ' .ValueMember = "Contactgegevens"
                '.ValueMember = contactgegevensChauffeursDS.Tables("Contactgegevens").Columns("ContactmiddelPersID").ToString

                .HeaderText = "Contactmiddel"

            End With
            With contactgegevensKlantDataGridView

                .Refresh()
                .DataSource = contactgegevensKlantenDS
                .DataMember = "Contactgegevens"
                If .Columns.Count > 1 Then
                    .Columns("IDcontactgegevensKlanten").Visible = False
                    .Columns("KlantID").Visible = False
                    .Columns("ContactmiddelKlID").Visible = False
                    .AllowUserToResizeColumns = True
                End If
                .Columns.Insert(0, contactmiddelkolom)
                'contactmiddelkolom.ValueMember = contactgegevensKlantenDS.Tables("Contactegegevens").Columns("ContactmiddelPersId")
            End With

        Catch ex As Exception
            MessageBox.Show(ex.Message, "Fout", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

    End Sub

ik heb al bepaalde dingen geprobeerd, maar die staan in commentaar...

iemand een suggestie?

alvast bedankt!

 

[xanderke]

Opgelost,

heb de DataPropertyName = "ContactmiddelKlID" ertussen gezet

With contactmiddelkolom
.DataSource = tmpContactmiddelenlijst
.DisplayMember = "Contactmiddel"
.ValueMember = "IDcontactmiddel"
.DataPropertyName = "ContactmiddelKlID"
.HeaderText = "Contactmiddel"

End With