From 025856022167aa5d1c7ed111980c71e9f129bd04 Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Fri, 13 May 2022 15:16:52 +0200
Subject: [PATCH] show all errors in import grids

---
 MultiTool.Form/frmImportMain.vb | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/MultiTool.Form/frmImportMain.vb b/MultiTool.Form/frmImportMain.vb
index eafa994..927672b 100644
--- a/MultiTool.Form/frmImportMain.vb
+++ b/MultiTool.Form/frmImportMain.vb
@@ -198,9 +198,12 @@ Public Class frmImportMain
         If oRow.HasErrors Then
 
             Dim oColumName = e.Column.FieldName
-            Dim oErrorField = oRow.Fields.Where(Function(field) field.Value.HasError).FirstOrDefault()
+            Dim oErrorFields = oRow.Fields.
+                Where(Function(field) field.Value.HasError).
+                Select(Function(field) field.Key).
+                ToList()
 
-            If Not IsNothing(oErrorField) AndAlso oColumName = oErrorField.Key Then
+            If oErrorFields.Count > 0 AndAlso oErrorFields.Contains(oColumName) Then
                 e.Appearance.Options.UseBackColor = True
                 e.Appearance.BackColor = Color.LightCoral
             End If