From b2a02bbecbe3f2db25858cebaa190c73ba830881 Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Tue, 12 Jan 2021 16:26:08 +0100
Subject: [PATCH] Common/DocumentREsultList: clean up

---
 .../DocumentResultList/frmDocumentResultList.vb    | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/GUIs.Common/DocumentResultList/frmDocumentResultList.vb b/GUIs.Common/DocumentResultList/frmDocumentResultList.vb
index 95128c8c..4632a7a7 100644
--- a/GUIs.Common/DocumentResultList/frmDocumentResultList.vb
+++ b/GUIs.Common/DocumentResultList/frmDocumentResultList.vb
@@ -108,8 +108,8 @@ Public Class frmDocumentResultList
             AddHandler GridView2.FocusedRowChanged, AddressOf GridView_FocusedRowChanged
             AddHandler GridView3.FocusedRowChanged, AddressOf GridView_FocusedRowChanged
 
-            UpdateTotalResults(_ResultLists)
-            UpdateGridData(_ResultLists)
+            UpdateTotalResults()
+            UpdateGridData()
         Catch ex As Exception
             _Logger.Error(ex)
             MessageBox.Show("Error while loading results:" & vbNewLine & vbNewLine & ex.Message, Text)
@@ -200,8 +200,8 @@ Public Class frmDocumentResultList
     Public Function RefreshResults(pResults As IEnumerable(Of BaseResult)) As Boolean Implements IResultForm.RefreshResults
         _IsLoading = True
         Try
-            UpdateTotalResults(_ResultLists)
-            UpdateGridData(_ResultLists)
+            UpdateTotalResults()
+            UpdateGridData()
 
             Return True
         Catch ex As Exception
@@ -213,7 +213,7 @@ Public Class frmDocumentResultList
         End Try
     End Function
 
-    Private Sub UpdateGridData(pResultList As List(Of DocumentResult))
+    Private Sub UpdateGridData()
         ' Load Grids
         For index = 0 To _ResultLists.Count - 1
             Select Case index
@@ -267,10 +267,10 @@ Public Class frmDocumentResultList
         End Select
     End Sub
 
-    Private Sub UpdateTotalResults(pResultList As List(Of DocumentResult))
+    Private Sub UpdateTotalResults()
         Dim oTotalResults = 0
 
-        For Each oList In pResultList
+        For Each oList In _ResultLists
             oTotalResults += oList.Datatable.Rows.Count
         Next