C Ronaldo
Legacy Member
Ik ben een klein programma aan het maken en ik zou een combobox willen waarin mijn firma's staan en ernaast de gemeente. Momenteel doe ik het zonder de gemeente want ik weet niet hoe ik deze erbij moet voegen. Hieronder zie je mijn code voor het opvullen van mijn combobox.
Public Shared Sub Comboboxopvullen()
Dim Connection As New OleDbConnection
Dim da As New OleDbDataAdapter
Dim dt As New DataTable
Dim dsFirma As New DataSet
Connection.ConnectionString = conn
With da
.SelectCommand = New OleDbCommand(sqlString, Connection)
End With
da.Fill(dsFirma, "Naam") => firmanaam
dt.Columns.Add("Firmanr") => mijn primary key (valuemember)
dt.Columns.Add("Naam")
Dim drRow As DataRow
Dim drNewRow As DataRow
For Each drRow In dsFirma.Tables("Naam").Rows
drNewRow = dt.NewRow
drNewRow("Firmanr") = drRow("Firmanr")
drNewRow("Naam") = drRow("Naam)
dt.Rows.Add(drNewRow)
Next
With cbbox
.DataSource = dt
.ValueMember = Firmanr
.DisplayMember = Naam
.SelectedIndex = -1
End With
End Sub
=> mijn displaymember zou dus niet alleen naam mogen zijn maar naam en gemeente. Zou er mij aub iemand kunnen helpen. Dank u
Public Shared Sub Comboboxopvullen()
Dim Connection As New OleDbConnection
Dim da As New OleDbDataAdapter
Dim dt As New DataTable
Dim dsFirma As New DataSet
Connection.ConnectionString = conn
With da
.SelectCommand = New OleDbCommand(sqlString, Connection)
End With
da.Fill(dsFirma, "Naam") => firmanaam
dt.Columns.Add("Firmanr") => mijn primary key (valuemember)
dt.Columns.Add("Naam")
Dim drRow As DataRow
Dim drNewRow As DataRow
For Each drRow In dsFirma.Tables("Naam").Rows
drNewRow = dt.NewRow
drNewRow("Firmanr") = drRow("Firmanr")
drNewRow("Naam") = drRow("Naam)
dt.Rows.Add(drNewRow)
Next
With cbbox
.DataSource = dt
.ValueMember = Firmanr
.DisplayMember = Naam
.SelectedIndex = -1
End With
End Sub
=> mijn displaymember zou dus niet alleen naam mogen zijn maar naam en gemeente. Zou er mij aub iemand kunnen helpen. Dank u
