Index: ActiviteitenOpvolging/ActiviteitenOpvolging/grids/DataGridViewUserControl.vb
===================================================================
diff -u -r1684 -r1685
--- ActiviteitenOpvolging/ActiviteitenOpvolging/grids/DataGridViewUserControl.vb	(.../DataGridViewUserControl.vb)	(revision 1684)
+++ ActiviteitenOpvolging/ActiviteitenOpvolging/grids/DataGridViewUserControl.vb	(.../DataGridViewUserControl.vb)	(revision 1685)
@@ -79,6 +79,7 @@
         For Each activity In workItem.Activities
             'Make a column for every activity with the necessary header text.
             Dim column As New DataGridViewTextBoxColumn With {
+                    .Name = $"{activity.Label}ActivityColumn",
                     .HeaderText = activity.Label
                     }
 
@@ -92,8 +93,8 @@
     ''' <param name="workItems"></param>
     Private Sub ShowWorkItems(workItems As List(Of IWorkItem))
         Try
+            'Loop through each work item.
             For Each workItem In workItems
-                'Loop through each work item.
                 'Load normal parameters.
                 Dim data As New List(Of String) From {
                         workItem.BatchVisual,
@@ -102,7 +103,9 @@
                         workItem.DeliverToResource,
                         workItem.Remark
                         }
+                'Add data from activities to end of list.
                 data.AddRange(workItem.Activities.Select(Function(activity) activity.QuantityToProduce.ToString()))
+                'Add as a row to the data grid view.
                 WorkItemsDataGridView.Rows.Add(data.ToArray())
             Next
         Catch ex As Exception