Mehr als eine Combobox in Datagridview

frankseipferd

Grünschnabel
Hallo zusammen,

ich erzeuge per VB-Code eine Datagridview beim Laden eines Formulars.

Diese ist an eine Datatable gebunden und zeigt auch schön die darin enthaltenen Felder an.

Ich habe es geschafft, das Feld UmsatzartID in eine Combobox umzuwandeln, was auch funktioniert.

Der Versuch, das Feld WaehrungID ebenfalls in eine Combobox umzuwandeln (s. auskommentierter Code am Ende) funktioniert leider nicht und es wird nach wie vor als normales Textfeld in der DGV angezeigt.

Hat jemand eine Idee, weshalb das so ist?

Code:
' DataGridView einbinden
Controls.Add(objDataGridView)

' DataGridView konfigurieren
With objDataGridView
.Dock = DockStyle.Fill
.AllowUserToAddRows = True
.RowHeadersVisible = True
.AutoSizeColumnsMode = DataGridViewAutoSizeColumnMode.AllCells
.DataSource = objDataTable
.Columns("Satznummer").ReadOnly = True
.Columns("UmsatzbasisID").Visible = False
.Columns("Rechnungsdatum").Visible = False

' UmsatzartID durch Combobox ersetzen
strSqlString = "Select * from tblUmsatzarten"
objDataAdapter2 = New SqlDataAdapter(strSqlString, pblstrConnectionString)
objDataAdapter2.Fill(objDataTable2)
Dim cboUmsatzartID As New DataGridViewComboBoxColumn
With cboUmsatzartID
.DataPropertyName = "UmsatzartID"
.HeaderText = "Umsatzart"
.DataSource = objDataTable2
.ValueMember = "UmsatzartID"
.DisplayMember = "Umsatzart"
End With
' Combobox in DGV einfügen
.Columns.Remove("UmsatzartID")
objDataGridView.Columns.Insert(5, cboUmsatzartID)

' ' WaehrungID durch Combobox ersetzen
' strSqlString = "Select * from tblWaehrungen"
' objDataAdapter3 = New SqlDataAdapter(strSqlString, pblstrConnectionString)
' objDataAdapter3.Fill(objDataTable3)
' Dim cboWaehrungID As New DataGridViewComboBoxColumn
' With cboWaehrungID
' .DataPropertyName = "WaehrungID"
' .HeaderText = "Währung"
' .DataSource = objDataTable3
' .ValueMember = "WaehrungID"
' .DisplayMember = "Währung"
' End With
' ComboBox in DGV einfügen
' .Columns.Remove("WaehrungID")
' objDataGridView.Columns.Insert(9, cboWaehrungID)
End With


Danke und Grüße
Frank
 

Neue Beiträge