Anlage von DS über DGV verbessert

UID/Programme/frmSprachen.vb

@@ -130,4 +130,17 @@ Public Class frmSprachen
         End If
     End Sub
 
+
+    Private Sub DataGridView_DefaultValuesNeeded(sender As Object, e As DataGridViewRowEventArgs) Handles DataGridView.DefaultValuesNeeded
+        Try
+
+
+            e.Row.Cells("trs_progId").Value = programId
+            e.Row.Cells("trs_progName").Value = txtProgramm.Text
+            e.Row.Cells("trs_sprache").Value = cbxSprachen._value
+            e.Row.Cells("trs_active").Value = True
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Sub
 End Class