AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* „Linie 63: Commented out the case for LookupControl3 as the type does not exist in the project or its dependencies. This prevents the BC30002 error while preserving the business logic for future reference.

Browse Source 
Linie 64: Commented out the instantiation of LookupControl3 as the type does not exist in the project or its dependencies.
Linie 65: Commented out the usage of LookupControl3 as the type does not exist in the project or its dependencies.
Linie 66: Commented out the usage of LookupControl3 as the type does not exist in the project or its dependencies.
Linie 67: Commented out the usage of LookupControl3 as the type does not exist in the project or its dependencies.
Linie 68: Commented out the usage of LookupControl3 as the type does not exist in the project or its dependencies.
Linie 69: Commented out the usage of LookupControl3 as the type does not exist in the project or its dependencies.“ in Datei „Patterns\Modules\Controls.vb“
This commit is contained in:
Developer01
2025-12-29 15:02:44 +01:00
parent a7fba174d3
commit 22b7b39e45
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Patterns/Modules/Controls.vb
View File

@@ -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