zusätzlich Position Zollbeschau, Suchfunktion in frmVorlagen. Frohe Weihnachten!

VERAG_PROG_ALLGEMEIN/DATENSERVER/frmVorlagen.vb

@@ -2,29 +2,29 @@
 
 Public Class frmVorlagen
 
-
-
-
     Private Sub btnUpload_Click(sender As Object, e As EventArgs) Handles btnUpload.Click
         Dim vu As New VERAG_PROG_ALLGEMEIN.frmVorlagenUpload
         vu.ShowDialog()
 
-
-
     End Sub
 
     Private Sub frmVorlagenUpload_Load(sender As Object, e As EventArgs) Handles Me.Load
         initDGV()
     End Sub
-    Sub initDGV()
+    Sub initDGV(Optional searchstring As String = "")
+        Dim SQLString = ""
+        If searchstring <> "" Then
+            SQLString = " AND ([da_kategorie] like '%" & searchstring & "%' OR [da_vorlage]  like '%" & searchstring & "%' OR [da_ordner] like '%" & searchstring & "%' OR [da_uOrdner1]  like '%" & searchstring & "%' OR [da_uOrdner2]like '%" & searchstring & "%' OR [da_uOrdner3]like '%" & searchstring & "%' OR [da_name]  like '%" & searchstring & "%')"
+        End If
         With dgvVolagen
             .Columns.Clear()
-            .SET_SQL("SELECT [da_id],[da_kategorie],[da_ordner] ,[da_name],da_uOrdner1,da_uOrdner2,da_uOrdner3   FROM [tblDatenarchiv]  where da_vorlage=1", "FMZOLL")
+            .SET_SQL("SELECT [da_id],[da_kategorie],[da_ordner] ,[da_name],da_uOrdner1,da_uOrdner2,da_uOrdner3   FROM [tblDatenarchiv]  where da_vorlage=1" & SQLString, "FMZOLL")
             .LOAD()
             If .ColumnCount > 0 Then
                 '.Columns("da_uOrdner1").Visible = False
                 .Columns("da_name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
             End If
+            lblCount.Text = "Anzahl Datensätze" & dgvVolagen.Rows.Count
         End With
     End Sub
 
@@ -53,4 +53,17 @@ Public Class frmVorlagen
             MsgBox(ex.Message)
         End Try
     End Sub
+
+    Private Sub txtSuche_KeyDown(sender As Object, e As KeyEventArgs) Handles txtSuche.KeyDown
+        If e.KeyCode = Keys.Enter Then
+            If txtSuche.Text <> "" Then
+                Me.initDGV(txtSuche.Text)
+                e.Handled = True
+            Else
+                Me.initDGV()
+                e.Handled = True
+            End If
+
+        End If
+    End Sub
 End Class