neu

VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb

@@ -101,6 +101,7 @@ Public Class KdSearchBox
 
 
             If e.KeyCode = Keys.Return Then
+
                 e.Handled = True
                 Exit Sub
             End If
@@ -593,6 +594,7 @@ Public Class KdSearchBox
     End Sub
     Private Sub TextBox1_PreviewKeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.PreviewKeyDownEventArgs) Handles Me.PreviewKeyDown
         Try
+
             If usrcntl IsNot Nothing AndAlso usrcntl.dgvKundenAktiv IsNot Nothing Then
                 If e.KeyData = Keys.Tab And usrcntl.Visible Then ' wenn usrcntl eingeblendet, soll der TABULATOR als InputKey gesehen werden.
                     If usrcntl.dgvKundenAktiv.SelectedRows.Count > 0 Then e.IsInputKey = True Else usrcntl.Visible = False
@@ -604,11 +606,17 @@ Public Class KdSearchBox
     End Sub
     Private Sub dgvFindKD_Click(sender As Object, e As KeyEventArgs) Handles Me.KeyDown, usrcntl.DGV_KeyDown
         Try
+            If e.KeyCode = Keys.Return Or e.KeyCode = Keys.Enter Or e.KeyCode = Keys.Tab Then
+                last_search = Now.AddSeconds(-10)
+                doKeyDown(Now) ' Damit Suche-Timer sicherausgelöst wurde
+                ' System.Threading.Thread.Sleep(5000)
+            End If
+
+
             If usrcntl IsNot Nothing AndAlso usrcntl.dgvKundenAktiv IsNot Nothing Then
                 With usrcntl.dgvKundenAktiv
                     If e.KeyCode = Keys.Return Or e.KeyCode = Keys.Enter Or e.KeyCode = Keys.Tab Then
                         If e.KeyCode = Keys.Return And .RowCount > 0 And .SelectedRows.Count = 0 Then .Rows(0).Selected = True
-
                         If .SelectedRows.Count > 0 Then
                             If IsNumeric(.SelectedRows(0).Cells("KdNr").Value) Then
                                 KdNr = .SelectedRows(0).Cells("KdNr").Value
@@ -727,6 +735,7 @@ Public Class KdSearchBox
 
             End If
             If Me.Text.Length > Me.MaxLength Then Me.Text = Me.Text.Substring(0, Me.MaxLength)
+            Eingabe_verarbeitet = True
         Catch ex As Exception
             MsgBox("Es ist ein Fehler beim Kunden-Such-Feld aufgetreten 12: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace)
         End Try

VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyComboBox.vb

@@ -15,7 +15,9 @@ Public Class MyComboBox
         If firstEmpty Then
             Me.Items.Insert(0, New MyListItem("", ""))
         End If
-        For Each i In l : MyBase.Items.Add(i) : Next
+        If l IsNot Nothing Then
+            For Each i In l : MyBase.Items.Add(i) : Next
+        End If
     End Sub
     Sub fillWithSQL(sqlstr As String, Optional showValueInText As Boolean = True, Optional conn As String = "SDL", Optional firstEmpty As Boolean = False, Optional clearList As Boolean = True)
         fillWithMyListItem((New SQL).loadCboBySqlWithListItem(sqlstr, showValueInText, conn), firstEmpty, clearList)
@@ -92,6 +94,7 @@ Public Class MyComboBox
     End Function
 
     Function getValueOfItem() As String
+        If Me.Items.Count = 0 Then Return ""
         Try : Return DirectCast(MyBase.SelectedItem, MyListItem).Value
         Catch
             Try : Return MyBase.SelectedItem.ToString : Catch : End Try
@@ -100,7 +103,7 @@ Public Class MyComboBox
         Return ""
     End Function
 
-  
+
     Private Sub MyComboBox_Leave(sender As Object, e As EventArgs) Handles Me.Leave
         If Me.DropDownStyle = Windows.Forms.ComboBoxStyle.DropDown Then
             If Me.Text = "" Then