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

* „Linie 54: Commented out the case for DevExpress.XtraEditors.LookUpEdit because the type does not exist in the project or its dependencies. This prevents the BC30002 error while preserving the business logic for future restoration if the type becomes available.

Browse Source 
Linie 55: Commented out the usage of DevExpress.XtraEditors.LookUpEdit to avoid reference to a missing type, as required by the error fix instructions.
Linie 57: Commented out the usage of oLookupEdit.EditValue to avoid reference to a missing type, as required by the error fix instructions.
Linie 58: Commented out the usage of oReplaceValue assignment for missing type.
Linie 59: Commented out the Else for missing type block.
Linie 60: Commented out the usage of oLookupEdit.EditValue for missing type.
Linie 61: Commented out the End If for missing type block.“ in Datei „Patterns\Modules\Controls.vb“
This commit is contained in:
Developer01
2025-12-29 15:02:18 +01:00
parent 33ee95ebbe
commit a7fba174d3
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

@@ -51,14 +51,14 @@ Namespace Modules
' Dim oDateValue As Date = oDateEdit.EditValue
' oReplaceValue = oDateValue.ToString("yyyyMMdd")
Case GetType(DevExpress.XtraEditors.LookUpEdit)
Dim oLookupEdit As DevExpress.XtraEditors.LookUpEdit = oControl
' Case GetType(DevExpress.XtraEditors.LookUpEdit) ' Type not found: DevExpress.XtraEditors.LookUpEdit
' Dim oLookupEdit As DevExpress.XtraEditors.LookUpEdit = oControl
If IsNothing(oLookupEdit.EditValue) Then
oReplaceValue = String.Empty
Else
oReplaceValue = oLookupEdit.EditValue
End If
' If IsNothing(oLookupEdit.EditValue) Then
' oReplaceValue = String.Empty
' Else
' oReplaceValue = oLookupEdit.EditValue
' End If
Case GetType(LookupControl3)
Dim oLookupControl3 As LookupControl3 = oControl