neu

VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyComboBox.vb

@@ -54,6 +54,9 @@ Public Class MyComboBox
     Function changeItem(v, Optional Valueallowed = False) As Boolean
         ' 
         Try
+
+            If v Is Nothing Then Me.Text = "" : Return True
+            If v Is DBNull.Value Then Me.Text = "" : Return True
             If Me.Items.Count = 0 Then Me.Text = "" : Return True
 
             If Me.Items(0).GetType.Name = "MyListItem" Then
@@ -78,7 +81,7 @@ Public Class MyComboBox
                 'WEnn die Items normale Strings beinhalten, wird keine  Änderung des ._value Wertes vorgenommen.
                 Return True
             End If
-        Catch ex As Exception
+            Catch ex As Exception
             '        MsgBox(ex.Message)
         End Try