Patterns: Replace with empty string for lookup edits when editvalid is nothing

2022-07-15 09:36:24 +02:00 · 2022-07-15 09:36:24 +02:00 · 0e51eec9b1
commit 0e51eec9b1
parent 8e47ba31e7
1 changed files with 6 additions and 1 deletions
--- 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