EALA FREYA FRESENA

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Mit freundlichen Gr??en
DotNetErbse


[Es hei?t Paket und nicht Packet, auch wenn Standard augenscheinlich von Standar(t)e kommt,hei?t es dennoch Standar(d)]

Mit freundlichen Gr??en
DotNetErbse


[Es hei?t Paket und nicht Packet, auch wenn Standard augenscheinlich von Standar(t)e kommt,hei?t es dennoch Standar(d)]

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Mit freundlichen Gr??en
DotNetErbse


[Es hei?t Paket und nicht Packet, auch wenn Standard augenscheinlich von Standar(t)e kommt,hei?t es dennoch Standar(d)]

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Mit freundlichen Gr??en
DotNetErbse


[Es hei?t Paket und nicht Packet, auch wenn Standard augenscheinlich von Standar(t)e kommt,hei?t es dennoch Standar(d)]

  Dim DB As New DataClasses1DataContext
 
  Private Sub HauptForm_Load(sender As Object, e As EventArgs) Handles _
    MyBase.Load
    Me.ArbeitsstundenTableAdapter.ClearBeforeFill = True
    Me.ArbeitsstundenTableAdapter.Fill(Me.AStdDataSet.Arbeitsstunden)
    Me.ArbeitsstundenBindingSource2.DataSource = DB.Arbeitsstunden
  End Sub
 
  'Für DataSet
  Private Sub ButtonZeilenKopieren1_Click(sender As Object, e As EventArgs) _
    Handles ButtonZeilenKopieren1.Click
    Dim sr = Me.ArbeitsstundenDataGridView1.SelectedRows.Cast(Of _
    DataGridViewRow)()
    For Each r In sr
      Dim satz = DirectCast(r.DataBoundItem, DataRowView)
      Dim z = DirectCast(satz.Row, AStdDataSet.ArbeitsstundenRow)
      Me.ArbeitsstundenTableAdapter.Insert(z.IDAG, z.Datum, z.TypID, z.Stunden, _
        z.ZeitVon, z.ZeitBis, z.Baustelle, z.Info)
    Next
    '-----------------
    'speichern
    Me.ArbeitsstundenTableAdapter.Update(Me.AStdDataSet)
    '-----------------
    Aktualisieren()
  End Sub
 
  'Für LinqToSql
  Private Sub ButtonZeilenKopieren2_Click(sender As Object, e As EventArgs) _
    Handles ButtonZeilenKopieren2.Click
    Dim sr = Me.ArbeitsstundenDataGridView2.SelectedRows.Cast(Of _
    DataGridViewRow)()
    For Each r In sr
      Dim z = DirectCast(r.DataBoundItem, Arbeitsstunden)
      Dim a = New Arbeitsstunden With {.IDAG = z.IDAG, .Datum = z.Datum, .TypID _
        = z.TypID, .Stunden = z.Stunden, .ZeitVon = z.ZeitVon, .ZeitBis = _
        z.ZeitBis, .Baustelle = z.Baustelle, .Info = z.Info}
      DB.Arbeitsstunden.InsertOnSubmit(a) 'hinzufügen
    Next
    '-----------------
    'speichern
    DB.SubmitChanges()
    '-----------------
    Aktualisieren()
  End Sub
 
  Private Sub Aktualisieren()
    'Für DataSet
    Me.ArbeitsstundenTableAdapter.Fill(Me.AStdDataSet.Arbeitsstunden)
    Me.ArbeitsstundenBindingSource1.MoveLast()
    '-----------------------------------------------------------------
    'Für LinqToSql
    DB = New DataClasses1DataContext
    Me.ArbeitsstundenBindingSource2.DataSource = DB.Arbeitsstunden
    Me.ArbeitsstundenBindingSource2.MoveLast()
  End Sub

Zitat:

Was möchte ich: Der Anwender soll einen neuen Artikel anlegen

Zitat:

mit allen Abhängigkeiten. Dazu erstellt er ein Template von einem ähnlichen Artikel. Das Template wird dann bearbeitet.