From 0e51eec9b1b89e9989219023a637ab099e7c71b3 Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Fri, 15 Jul 2022 09:36:24 +0200
Subject: [PATCH] Patterns: Replace with empty string for lookup edits when
 editvalid is nothing

---
 Modules.Patterns/Modules/Controls.vb | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/Modules.Patterns/Modules/Controls.vb b/Modules.Patterns/Modules/Controls.vb
index f4e5a846..75c467fb 100644
--- a/Modules.Patterns/Modules/Controls.vb
+++ b/Modules.Patterns/Modules/Controls.vb
@@ -52,7 +52,12 @@ Namespace Modules
 
                             Case GetType(DevExpress.XtraEditors.LookUpEdit)
                                 Dim oLookupEdit As DevExpress.XtraEditors.LookUpEdit = oControl
-                                oReplaceValue = oLookupEdit.EditValue
+
+                                If IsNothing(oLookupEdit.EditValue) Then
+                                    oReplaceValue = String.Empty
+                                Else
+                                    oReplaceValue = oLookupEdit.EditValue
+                                End If
 
                             Case GetType(LookupControl3)
                                 Dim oLookupControl3 As LookupControl3 = oControl