Hallo,
versuche schon seit Stunden eine Combobox in einem Datagridview zu befüllen.
DGV wird mit dem Designer erstellt.
Versuch A)
Versuch B)
In beiden Fällen bleibt die Combobox leer.
DT_Aktion ist eine Datatable.
versuche schon seit Stunden eine Combobox in einem Datagridview zu befüllen.
DGV wird mit dem Designer erstellt.
Versuch A)
VB.NET-Quellcode
- Dim Combo_Aktion As New DataGridViewComboBoxCell
- With Combo_Aktion
- .DataSource = Nothing
- .DataSource = Me.DT_Aktion
- .ValueMember = "Nummer"
- .DisplayMember = "Bezeichnung"
- End With
- Me.Zeile = -1
- With Me.DGV_Verbrauch
- .Rows.Clear()
- For Me.I = 0 To PPD.DataTabelle.Rows.Count - 1
- PPD.DataZeile = PPD.DataTabelle.Rows(Me.I)
- If CInt(PPD.DataZeile("Monat")) = Me.Monat Then
- Me.VDatum = CDate(PPD.DataZeile("Datum").ToString)
- Me.Zeile += 1
- Me.DGV_Verbrauch.Rows.Add()
- Me.DGV_Verbrauch.Rows(Me.Zeile).Cells("DGID").Value = PPD.DataZeile("ID")
- Me.DGV_Verbrauch.Rows(Me.Zeile).Cells("DGDatum").Value = PPD.DataZeile("Datum")
- Me.DGV_Verbrauch.Rows(Me.Zeile).Cells("DGWochentag").Value = Func.WochentagName(Me.VDatum.DayOfWeek)
- Me.DGV_Verbrauch.Rows(Me.Zeile).Cells("DGZS").Value = PPD.DataZeile("StromZaehler")
- Me.DGV_Verbrauch.Rows(Me.Zeile).Cells("DGVS").Value = PPD.DataZeile("StromVerbrauch")
- Me.DGV_Verbrauch.Rows(Me.Zeile).Cells("DGZP").Value = PPD.DataZeile("PelletsZaehler")
- Me.DGV_Verbrauch.Rows(Me.Zeile).Cells("DGVP").Value = PPD.DataZeile("PelletsVerbrauch")
- Combo_Aktion = DirectCast(Me.DGV_Verbrauch.Rows(Me.Zeile).Cells("DGAK"), DataGridViewComboBoxCell)
- ' Me.DGV_Verbrauch.Rows(Me.Zeile).Cells("DGAK").Value = 0
- End If
- Next
- End With
Versuch B)
VB.NET-Quellcode
- Private Sub DGV_Verbrauch_EditingControlShowing(sender As Object, e As DataGridViewEditingControlShowingEventArgs) Handles DGV_Verbrauch.EditingControlShowing
- If Me.Halt Then Exit Sub
- Dim cmb = TryCast(e.Control, DataGridViewComboBoxEditingControl)
- With cmb
- .DataSource = Nothing
- .DataSource = Me.DT_Aktion
- .ValueMember = "Nummer"
- .DisplayMember = "Bezeichnung"
- End With
- End Sub
In beiden Fällen bleibt die Combobox leer.
DT_Aktion ist eine Datatable.
Gruß Markus
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Westerwälder“ ()