Ich weiß, es gibt schon mehrere Themen darüber, nur ich werde irgendwie nicht fündig...
In einem DGV ist ein Haken (nicht Datengebunden) gesetzt. Wenn dieser entfernt wird, wird die entsprechende Zeile (Datengebunden, bis auf den Haken) in der entsprechenden Tabelle gelöscht (funktioniert). Wird er wieder gesetzt, wird die Zeile wieder in die Tabelle geschrieben (funktioniert). Wenn man den Haken nun erneut löscht -> ERROR -> Zeile angeblich nicht vorhanden (weil vorher schon einmal gelöscht oder nicht "richtig" erneut rein geschrieben wurde)... Wird das Dataset vor dem erneuten Löschen abgespeichert, so funktioniert alles tadellos.
In einem DGV ist ein Haken (nicht Datengebunden) gesetzt. Wenn dieser entfernt wird, wird die entsprechende Zeile (Datengebunden, bis auf den Haken) in der entsprechenden Tabelle gelöscht (funktioniert). Wird er wieder gesetzt, wird die Zeile wieder in die Tabelle geschrieben (funktioniert). Wenn man den Haken nun erneut löscht -> ERROR -> Zeile angeblich nicht vorhanden (weil vorher schon einmal gelöscht oder nicht "richtig" erneut rein geschrieben wurde)... Wird das Dataset vor dem erneuten Löschen abgespeichert, so funktioniert alles tadellos.
VB.NET-Quellcode
- If CBool(dgv_testfaelle.CurrentCell.Value) = True AndAlso BpHakenCount = 1 Then
- 'Wenn BestPractice gesetzt wurde und es keine anderen Haken gibt, Suite in Auswahl "BestPractice" eintragen
- HauptDataSet.AuswahlInhalt.AddAuswahlInhaltRow( _
- HauptDataSet.Auswahl.First(Function(a) a.Name = "BestPractice"), _
- HauptDataSet.Suite.First(Function(b) b.ID = BsTestfall_Testumgebung.At(Of TestfallRow)().SuiteID))
- ElseIf CBool(dgv_testfaelle.CurrentCell.Value) = False AndAlso BpHakenCount = 0 Then
- 'Wenn BestPractice entfernt wurde und es nur maximal einen Testfall der BpSuite mit gesetztem Haken gibt, Suite in Auswahl "BestPractice" löschen
- HauptDataSet.AuswahlInhalt.First(Function(a) _
- a.SuiteID = BsTestfall_Testumgebung.At(Of TestfallRow)().SuiteID AndAlso _
- a.AuswahlID = HauptDataSet.Auswahl.First(Function(c) c.Name = "BestPractice").ID).Delete()
- End If
