Erst mal Hallo super Forum habt Ihr da
Ich habe zwei Tabellen eine Master (Part) und eine Child (Prozess). Die Datenbank ist eine SQL und wird per DBExtension von ErfinderdesRads koordiniert.
Nun füge ich per Code eine neue Partrow hinzu, gleich unmittelbar danach folgen mehrere Prozessrow. Beim Speichern in die Datenbank ist komischerweise immer ein foreignkey der Prozessrow noch immer minus.
Der code sieht vereinfacht so aus:
Ich habe zwei Tabellen eine Master (Part) und eine Child (Prozess). Die Datenbank ist eine SQL und wird per DBExtension von ErfinderdesRads koordiniert.
Nun füge ich per Code eine neue Partrow hinzu, gleich unmittelbar danach folgen mehrere Prozessrow. Beim Speichern in die Datenbank ist komischerweise immer ein foreignkey der Prozessrow noch immer minus.
Der code sieht vereinfacht so aus:
VB.NET-Quellcode
- Sub Parthinzufügen()
- Dim PartBS = frm_Artikel.AdressBindingSource.At(Of AdressRow)()
- Dim rwParent = frm_Artikel.BlechERPDataSet.Adress.FindByAdressID(CInt(PartBS.AdressID))
- frm_Artikel.BlechERPDataSet.Part.AddPartRow(rwParent, 1, usw...)
- frm_Artikel.FK_Adress_PartBindingSource.MoveTo("Name", CStr(.Cells(NameIndex).Value)))
- for i = 1 to 3
- Prozesshinzufügen()
- next i
- End Sub
- Public Function Prozesshinzufügen() As Boolean
- Dim PartBS = frm_Artikel.FK_Adress_PartBindingSource.At(Of PartRow)()
- Dim _rwParent = frm_Artikel.BlechERPDataSet.Part.FindByPartID(CInt(PartBS.PartID))
- Dim _Position As Integer = frm_Artikel.FKPartPartProzessBindingSource.Count
- frm_Artikel.BlechERPDataSet.PartProzess.AddPartProzessRow(_rwParent, "_Prozessname", usw...)
- Return True
- End Function
- Public Sub save()
- BlechERPDataSet.Save(me)
- End Sub
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Chrigu666“ ()