Private Sub suchen()
        ' Die eingegebene EAN in der Lookupdatei suchen
        Dim dv As DataView = CType(Me.BindingContext(DataGrid1.DataSource), _
          CurrencyManager).List
        dv.Sort = "ean"
        Dim i As Integer
        i = dv.Find(Me.eaneingabe.Text)
        If i > dv.Table.Rows.Count Or i < 0 Then
            artnummersuchen()
        Else
            Me.mengeneingabe.Enabled = True
            Me.mengeneingabe.Focus()
        End If
    End Sub
   Public Sub artnummersuchen()
        Dim dv As DataView = CType(Me.BindingContext(DataGrid1.DataSource), _
          CurrencyManager).List
        dv.Sort = "artikelnummer"
        Dim i As Integer
        i = dv.Find(Me.eaneingabe.Text)
        If i > dv.Table.Rows.Count Or i < 0 Then
            Me.StatusBar1.Text = "Artikel nicht gefunden"
            Me.eaneingabe.Text = ""
            Me.eaneingabe.Focus()
        Else
            Me.bez1_label.Text = dv.ToString
            Me.mengeneingabe.Enabled = True
            Me.mengeneingabe.Focus()
        End If
    End Sub