Hallo,
ich benötige bitte etwas Hilfe bei einem kleinen Projekt.
Ich muss immer wieder Excel Listen zusammenführen, die unterschiedliche Mengen an Zellen aufweisen. Beide Listen haben jeweils eine ID und einen Namen der übereinstimmen kann.
Ich lese beide Listen in ein DatagridView ein. Die 2. Liste enthält immer weniger Zellen als die erste, daher muss ich in manchen Reihen auch leere Zellen einfügen.
Folgender Code funktioniert:
Jetzt müsste ich im Else Block leere Zellen einfügen, was ich nicht hinbekomme.
Danke!
ich benötige bitte etwas Hilfe bei einem kleinen Projekt.
Ich muss immer wieder Excel Listen zusammenführen, die unterschiedliche Mengen an Zellen aufweisen. Beide Listen haben jeweils eine ID und einen Namen der übereinstimmen kann.
Ich lese beide Listen in ein DatagridView ein. Die 2. Liste enthält immer weniger Zellen als die erste, daher muss ich in manchen Reihen auch leere Zellen einfügen.
Folgender Code funktioniert:
VB.NET-Quellcode
- Dim updateRow() As Data.DataRow
- ' wenn daten in umsatz schon vorhanden dann update der zellen
- For Each row As DataGridViewRow In dgvBoni.Rows
- updateRow = DtSet3.Tables(0).Select("" & dgvBoni.Columns(0).HeaderText & " = '" & row.Cells("" & dgvBoni.Columns(0).HeaderText & "").Value & "'")
- If (updateRow.Length > 0) Then
- Dim m As Integer
- For m = 2 To dgvBoni.Columns.Count - 1
- updateRow(0)(dgvBoni.Columns(m).HeaderText) = row.Cells(dgvBoni.Columns(m).HeaderText).Value
- Next
- ' wenn daten in Umsatz nicht vorhanden muss eine neue row hinzugefügt werden
- Else
- DtSet3.Tables(0).Rows.Add(New String() {row.Cells(dgvBoni.Columns(0).HeaderText).Value, row.Cells(dgvBoni.Columns(1).HeaderText).Value})
- End If
- Next
Jetzt müsste ich im Else Block leere Zellen einfügen, was ich nicht hinbekomme.
Danke!