AppCustom/MultiTool
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

show all errors in import grids

Browse Source
This commit is contained in:
Jonathan Jenne 2022-05-13 15:16:52 +02:00
parent dc657c32a5
commit 0258560221
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
MultiTool.Form/frmImportMain.vb
View File

@ -198,9 +198,12 @@ Public Class frmImportMain
If oRow.HasErrors Then If oRow.HasErrors Then
Dim oColumName = e.Column.FieldName 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.Options.UseBackColor = True
e.Appearance.BackColor = Color.LightCoral e.Appearance.BackColor = Color.LightCoral
End If End If