JJ 21.04.16

app/DD-Record-Organiser/ClassControlValues.vb

@@ -479,7 +479,16 @@ Public Class ClassControlValues
 
             Case GetType(DataGridView)
                 Dim dgv As DataGridView = DirectCast(control, DataGridView)
-                dgv.Rows.Clear()
+                Dim ds = dgv.DataSource
+
+                If (IsNothing(ds)) Then
+                    dgv.Rows.Clear()
+                    dgv.Refresh()
+                Else
+                    dgv.DataSource = Nothing
+                    dgv.Refresh()
+                End If
+                Console.WriteLine("Clearing DataGridView")
 
         End Select
     End Sub
@@ -488,7 +497,7 @@ Public Class ClassControlValues
 #Region "LoadDefaultValue"
     Public Shared Sub LoadDefaultValues(FormID As Integer, RecordID As Integer, controls As Control.ControlCollection)
         '' Zuerst alle Controls leeren
-        'ClearControlValues(controls)
+        ClearControlValues(controls)
 
         Dim i = 0
         For Each control As Control In controls