Folgendes Problem:
Ich hab eine Tabelle (pic 1) in der man mit Hilfe einer anderen Form (pic 3) automatisch Werte eintragen lassen kann.
Das AutoInsert sieht so aus:
Soweit so gut. Die Werte werden eingetragen (pic 2). Doch sobald ich die Werte speichern will, schmeisst er mir "nur" die automatisch eingetragenen raus (pic 4). Werte die ich direkt eingetragen habe, bleiben und werden gespeichert.
Irgendeine Idee?
Mein Save ist:
Ich hab eine Tabelle (pic 1) in der man mit Hilfe einer anderen Form (pic 3) automatisch Werte eintragen lassen kann.
Das AutoInsert sieht so aus:
VB.NET-Quellcode
- Private Sub Insert()
- Dim StartWeek As Integer = GetKW(dtpStart.Value)
- Dim EndWeek As Integer = GetKW(dtpEnd.Value)
- Dim StartDate As Date = dtpStart.Value
- Dim CurrentRw = fmAppPlan.AppPlanBindingSource.At(Of AppPlanRow)()
- Select Case rbEndsAfter.Checked
- Case True
- Select Case rbDays.Checked
- Case True 'days
- EndWeek = GetKW(dtpStart.Value.AddDays((nudApps.Value - 1) * nudPeriod.Value))
- For i = StartWeek - 1 To EndWeek Step CInt(nudPeriod.Value / 7)
- CurrentRw(i + 22) = nudRate.Value
- Next
- Case False 'weeks
- For i = StartWeek - 1 To EndWeek Step CInt(nudPeriod.Value)
- CurrentRw(i + 22) = nudRate.Value
- Next
- End Select
- Case False
- Select Case rbDays.Checked
- Case True 'days
- For i = StartWeek - 1 To EndWeek Step CInt(nudPeriod.Value / 7)
- CurrentRw(i + 22) = nudRate.Value
- Next
- Case False 'weeks
- For i = StartWeek - 1 To EndWeek Step CInt(nudPeriod.Value)
- CurrentRw(i + 22) = nudRate.Value
- Next
- End Select
- End Select
- End Sub
Soweit so gut. Die Werte werden eingetragen (pic 2). Doch sobald ich die Werte speichern will, schmeisst er mir "nur" die automatisch eingetragenen raus (pic 4). Werte die ich direkt eingetragen habe, bleiben und werden gespeichert.
Irgendeine Idee?
Mein Save ist: