timas, apieinstellungen, Mitarbeiterdetails

UID/Programme/frmBerechtigungsObjekte.vb

@@ -27,13 +27,13 @@
         init()
     End Sub
 
-    Sub init()
+    Sub init(Optional searchparam As String = "")
         MyComboBox1.SelectedIndex = 0
         gdvGruppen.Rows.Clear()
         dgvObjekte.Rows.Clear()
         dgvGruppenBenutzer.Rows.Clear()
 
-        BerechtigungsObjekte = New VERAG_PROG_ALLGEMEIN.cBerechtigungsObjekte_List(progId)
+        BerechtigungsObjekte = New VERAG_PROG_ALLGEMEIN.cBerechtigungsObjekte_List(progId, searchparam)
         BerechtigungenGruppen = New VERAG_PROG_ALLGEMEIN.cBerechtigungenGruppen_List(progId)
 
         For Each b In BerechtigungenGruppen.LIST
@@ -270,4 +270,20 @@
             MsgBox("Keine Benutzer gefunden!")
         End If
     End Sub
+
+    Private Sub MyTextBox7_KeyDown(sender As Object, e As KeyEventArgs) Handles txtSuche.KeyDown
+
+
+        Dim sqladdon As String = ""
+
+        If e.KeyCode = Keys.Enter Then
+            If txtSuche.Text <> "" Then
+                sqladdon &= " AND [bero_bezeichnung] like '%" & txtSuche.Text & "%'"
+            End If
+            init(sqladdon)
+        End If
+
+    End Sub
+
+
 End Class