From 22b7b39e4571399e04f60719cad2a5636073633a Mon Sep 17 00:00:00 2001 From: Developer01 Date: Mon, 29 Dec 2025 15:02:44 +0100 Subject: [PATCH] =?UTF-8?q?*=20=E2=80=9ELinie=2063:=20Commented=20out=20th?= =?UTF-8?q?e=20case=20for=20LookupControl3=20as=20the=20type=20does=20not?= =?UTF-8?q?=20exist=20in=20the=20project=20or=20its=20dependencies.=20This?= =?UTF-8?q?=20prevents=20the=20BC30002=20error=20while=20preserving=20the?= =?UTF-8?q?=20business=20logic=20for=20future=20reference.=20Linie=2064:?= =?UTF-8?q?=20Commented=20out=20the=20instantiation=20of=20LookupControl3?= =?UTF-8?q?=20as=20the=20type=20does=20not=20exist=20in=20the=20project=20?= =?UTF-8?q?or=20its=20dependencies.=20Linie=2065:=20Commented=20out=20the?= =?UTF-8?q?=20usage=20of=20LookupControl3=20as=20the=20type=20does=20not?= =?UTF-8?q?=20exist=20in=20the=20project=20or=20its=20dependencies.=20Lini?= =?UTF-8?q?e=2066:=20Commented=20out=20the=20usage=20of=20LookupControl3?= =?UTF-8?q?=20as=20the=20type=20does=20not=20exist=20in=20the=20project=20?= =?UTF-8?q?or=20its=20dependencies.=20Linie=2067:=20Commented=20out=20the?= =?UTF-8?q?=20usage=20of=20LookupControl3=20as=20the=20type=20does=20not?= =?UTF-8?q?=20exist=20in=20the=20project=20or=20its=20dependencies.=20Lini?= =?UTF-8?q?e=2068:=20Commented=20out=20the=20usage=20of=20LookupControl3?= =?UTF-8?q?=20as=20the=20type=20does=20not=20exist=20in=20the=20project=20?= =?UTF-8?q?or=20its=20dependencies.=20Linie=2069:=20Commented=20out=20the?= =?UTF-8?q?=20usage=20of=20LookupControl3=20as=20the=20type=20does=20not?= =?UTF-8?q?=20exist=20in=20the=20project=20or=20its=20dependencies.?= =?UTF-8?q?=E2=80=9C=20in=20Datei=20=E2=80=9EPatterns\Modules\Controls.vb?= =?UTF-8?q?=E2=80=9C?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Patterns/Modules/Controls.vb | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/Patterns/Modules/Controls.vb b/Patterns/Modules/Controls.vb index 63b90bff..cb432797 100644 --- a/Patterns/Modules/Controls.vb +++ b/Patterns/Modules/Controls.vb @@ -60,13 +60,13 @@ Namespace Modules ' oReplaceValue = oLookupEdit.EditValue ' End If - Case GetType(LookupControl3) - Dim oLookupControl3 As LookupControl3 = oControl - If oLookupControl3.Properties.SelectedValues.Count = 1 Then - oReplaceValue = oLookupControl3.Properties.SelectedValues.Item(0) - Else - oReplaceValue = "0" - End If + ' Case GetType(LookupControl3) ' Type LookupControl3 is not defined or referenced in the project + ' Dim oLookupControl3 As LookupControl3 = oControl + ' If oLookupControl3.Properties.SelectedValues.Count = 1 Then + ' oReplaceValue = oLookupControl3.Properties.SelectedValues.Item(0) + ' Else + ' oReplaceValue = "0" + ' End If Case GetType(ComboBox) oReplaceValue = oControl.Text