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