TimasAPI, AD

UID/Mitarbeiter/usrCntlMitarbeiter.vb

@@ -194,7 +194,6 @@ Public Class usrCntlMitarbeiter
 
 
     Public Sub showTIMAS()
-        'Paint wieder reaktivieren
         locZeilen = -1
         If Not Grid_aktiv Then Exit Sub
 
@@ -202,7 +201,6 @@ Public Class usrCntlMitarbeiter
 
             If txtSuche.Text <> "" Then
                 dt.DefaultView.RowFilter = "lastname like '%" & txtSuche.Text & "%'  or firstname like '%" & txtSuche.Text & "%' or pnr1 like '%" & txtSuche.Text & "%'  or info like '%" & txtSuche.Text & "%'"
-
             Else
                 dt.DefaultView.RowFilter = Nothing
             End If
@@ -210,10 +208,25 @@ Public Class usrCntlMitarbeiter
             dgvTimasNew.DataSource = dt
 
         Else
-                Dim timas As New cTimasAPI()
-                timas.getEmployeeList(dt)
-                dgvTimasNew.DataSource = dt
-            End If
+            Dim timas As New cTimasAPI()
+            timas.getEmployeeList(dt)
+            dgvTimasNew.DataSource = dt
+
+        End If
+        With dgvTimasNew
+
+            .RowTemplate.Height = 20
+            .RowTemplate.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft
+            .AllowUserToAddRows = False
+            .AllowUserToDeleteRows = False
+            .AllowUserToOrderColumns = False
+            .AllowUserToResizeColumns = False
+            .AllowUserToResizeRows = False
+            .RowTemplate.ReadOnly = True
+            .RowHeadersVisible = False
+            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
+            .AllowUserToOrderColumns = True
+        End With
 
 
     End Sub