lookupcontrol

app/DD_PM_WINDREAM/frmValidator.vb

@@ -12,6 +12,7 @@ Imports System.Text.RegularExpressions
 Imports System.ComponentModel
 Imports DD_LIB_Standards
 Imports DigitalData.Controls.LookupGrid
+Imports System.Data.SqlClient
 
 Public Class frmValidator
     Dim viewerID
@@ -1669,7 +1670,7 @@ Public Class frmValidator
     Private Function Return_VektorArray(ByVal oDocument As WMObject, vktIndexName As String, NIIndexe As Object, CheckDuplikat As Boolean, vType As Object)
         Dim ValueArray()
 
-        Try
+        ' Try
         Dim missing As Boolean = False
             Dim Anzahl As Integer = 0
 
@@ -1760,9 +1761,9 @@ Public Class frmValidator
             End If
 
             Return ValueArray
-        Catch ex As Exception
+        'Catch ex As Exception
-            Return valueArray
+        '    Return ValueArray
-        End Try
+        'End Try
 
 
     End Function
@@ -2130,6 +2131,27 @@ Public Class frmValidator
                                 End If
 
                             End If
+                        Case "DigitalData.Controls.LookupGrid.LookupControl"
+                            Try
+                                Dim lookup As LookupControl = inctrl
+                                Dim wertWD = aktivesDokument.GetVariableValue(idxname)
+                                If wertWD.GetType.ToString.Contains("System.Object") Then
+                                    Dim oArrlist As New List(Of String)
+                                    For Each oVectorRow As Object In wertWD
+
+                                        oArrlist.Add(oVectorRow.ToString)
+                                    Next
+                                    lookup.SelectedValues = oArrlist
+
+                                Else
+
+                                End If
+
+                            Catch ex As Exception
+                                ClassLogger.Add(" - Unvorhergesehener Unexpected error in AddVorschlag_ComboBox - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message)
+                                MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Unexpected error in Add LookupControl:")
+                            End Try
+
                         Case "System.Windows.Forms.DateTimePicker"
                             controltype = "DateTimePicker"
                             Dim DTP As DateTimePicker = inctrl
@@ -2239,7 +2261,7 @@ Public Class frmValidator
         'Eingaben auf Form überprüfen
         If Check_UpdateIndexe() = False Then
             'lblerror.Visible = False
-            'Try
+            Try
                 Dim _error As Boolean = False
                 Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXING, CURRENT_ProfilName)
                 Dim dtfinal As DataTable = DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXING
@@ -2499,12 +2521,12 @@ Public Class frmValidator
 
                 End If
 
-            'Catch ex As Exception
+            Catch ex As Exception
-            '    errormessage = "Unvorhergesehener Fehler bei Abschluss:" & ex.Message
+                errormessage = "Unvorhergesehener Fehler bei Abschluss:" & ex.Message
-            '    My.Settings.Save()
+                My.Settings.Save()
-            '    frmError.ShowDialog()
+                frmError.ShowDialog()
-            '    ClassLogger.Add(">> Unvorhergesehener Fehler bei Abschluss: " & ex.Message, True)
+                ClassLogger.Add(">> Unvorhergesehener Fehler bei Abschluss: " & ex.Message, True)
-            'End Try
+            End Try
         Else
             'lblerror.Visible = True
             'lblerror.Text = errmessage