Hallo Community,
kann man unten angeführte Beispiel-Routinen, die in ihrer Funktion gleich arbeiten, noch weiter zusammenfassen?
Momentan stehen sie in verschiedenen Überladungen...
kann man unten angeführte Beispiel-Routinen, die in ihrer Funktion gleich arbeiten, noch weiter zusammenfassen?
Momentan stehen sie in verschiedenen Überladungen...
VB.NET-Quellcode
- Private Sub CopyChildRows(ParentRow As OberTabelleRow, Tabelle As ErsteUnterTabelleDataTable, Column As Func(Of ErsteUnterTabelleRow, Integer))
- For Each e In (From r In Tabelle Where r.RowState <> DataRowState.Deleted AndAlso r.OberGruppeID = ParentRow.OberGruppeID Select Column(r)).Distinct.ToList
- Dim newRow = Tabelle.NewErsteUnterTabelleRow
- newRow.OberGruppeID = ParentRow.OberGruppeID
- newRow.UnterGruppeID = ParentRow.UnterGruppeID
- newRow.WertA = e
- Tabelle.AddErsteUnterTabelleRow(newRow)
- Next
- End Sub
- Private Sub CopyChildRows(ParentRow As OberTabelleRow, Tabelle As ZweiteUnterTabelleDataTable, Column As Func(Of ZweiteUnterTabelleRow, Integer))
- For Each e In (From r In Tabelle Where r.RowState <> DataRowState.Deleted AndAlso r.OberGruppeID = ParentRow.OberGruppeID Select Column(r)).Distinct.ToList
- Dim newRow = Tabelle.NewZweiteUnterTabelleRow
- newRow.OberGruppeID = ParentRow.OberGruppeID
- newRow.UnterGruppeID = ParentRow.UnterGruppeID
- newRow.WertB = e
- Tabelle.AddZweiteUnterTabelleRow(newRow)
- Next
- End Sub
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VB1963“ ()