Chat, divers

VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MySearchBox.vb

@@ -336,7 +336,6 @@ Public Class MySearchBox
 
             Dim dttmp As DataTable = SQL.loadDgvBySql(SQLstr, conn_art, , showerror)
             If dttmp IsNot Nothing AndAlso dttmp.Rows.Count > 0 Then
-
                 Return dttmp.Rows(0)(If(DISPLAY_PARAM = "", KEYPARAM, DISPLAY_PARAM)).ToString
             End If
         Catch ex As Exception
@@ -536,9 +535,8 @@ Public Class MySearchBox
             If Me.DR Is Nothing Then
                 Me.Text = ""
             Else
-
-                Me.Text = row(If(DISPLAY_PARAM = "", KEYPARAM, DISPLAY_PARAM)).ToString
                 Me._value = row(KEYPARAM).ToString
+                Me.Text = row(If(DISPLAY_PARAM = "", KEYPARAM, DISPLAY_PARAM)).ToString
                 hideDgv(usrcntl)
             End If
             RaiseEvent VALUE_CHANGED()