Personalakte und ComputerAppConfig Fehler

app/DD-Record-Organizer/Classes/ClassSQLEditor.vb

@@ -1,7 +1,9 @@
 Imports System.ComponentModel
+Imports System.Data.SqlClient
 Imports System.Drawing.Design
 Imports System.Windows.Forms
 Imports System.Windows.Forms.Design
+Imports DigitalData.GUIs.Common
 
 Public Class ClassSQLEditor
     Inherits UITypeEditor
@@ -14,19 +16,26 @@ Public Class ClassSQLEditor
     Public Overrides Function EditValue(context As ITypeDescriptorContext, provider As IServiceProvider, value As Object) As Object
         'Return MyBase.EditValue(context, provider, value)
         Dim svc As IWindowsFormsEditorService = TryCast(provider.GetService(GetType(IWindowsFormsEditorService)), IWindowsFormsEditorService)
-        Dim SQLSTring As String = DirectCast(value, SQLValue).Value
+        Dim SQLString As String = DirectCast(value, SQLValue).Value
 
-        'If svc IsNot Nothing AndAlso SQLSTring IsNot Nothing Then
-        '    Using Form As New frmSQLEditor()
-        '        Form.Value = SQLSTring
-        '        If svc.ShowDialog(Form) = DialogResult.OK Then
-        '            Dim sql As New SQLValue(Form.Value)
-        '            value = sql
-        '        End If
-        '    End Using
-        'End If
+        If svc IsNot Nothing AndAlso SQLString IsNot Nothing Then
+            Dim oForm2 As New DigitalData.GUIs.Common.frmSQLEditor(LOGCONFIG, MYDB_ECM) With {
+                .SQLCommand = SQLString
+            }
+
+            Dim oResult = oForm2.ShowDialog()
+            If oResult = DialogResult.OK Then
+                Dim oSql As New SQLValue(oForm2.SQLCommand)
+                value = oSql
+                SQLString = oForm2.SQLCommand
+            End If
+        End If
+        If Not IsNothing(value) Then
+            Return value
+        Else
+            Return Nothing
+        End If
 
-        Return ""
     End Function
 End Class