TIMAS API, API, etc

UID/Mitarbeiter/frmMitarbTimas.vb

@@ -290,7 +290,9 @@ Public Class frmMitarbTimas
 
                                 For Each r As DataGridViewRow In dgvData.Rows
                                     For Each i As cTimasGruppe In emp.Gruppen
-                                        If r.Cells("id").Value = i.Id Then r.Cells("set").Value = True
+                                        If r.Cells("id").Value = i.Id Then
+                                            r.Cells("set").Value = True
+                                        End If
                                     Next
                                 Next
                             End With
@@ -318,6 +320,24 @@ Public Class frmMitarbTimas
             dv.RowFilter = "groupType = '" & tab.Text & "'"
             dgvData.DataSource = dv
             If dgvData.Columns.Count > 0 Then
+                With dgvData
+                    .RowHeadersWidth = 10
+                    .Columns("id").Visible = True
+                    .Columns("name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+                    .Columns("groupType").Visible = False
+                    .Columns("info").Width = 200
+                    .Columns("set").Width = 20
+                    .Columns("set").HeaderText = "X"
+                    .Dock = DockStyle.Fill
+
+                    For Each r As DataGridViewRow In dgvData.Rows
+                        For Each i As cTimasGruppe In emp.Gruppen
+                            If r.Cells("id").Value = i.Id Then
+                                r.Cells("set").Value = True
+                            End If
+                        Next
+                    Next
+                End With
                 tab.Controls.Add(Me.dgvData)
             End If
 
@@ -327,7 +347,7 @@ Public Class frmMitarbTimas
 
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
-        If vbYes = MsgBox("Möchten Sie Daten aus AVISO/SQL übernehmen?", vbYesNo) Then
+        If vbYes = MsgBox("Möchten Sie Daten aus AVISO/SDL übernehmen?", vbYesNo) Then
             If avisoEmp IsNot Nothing AndAlso avisoEmp.mit_username <> "" Then
                 txtUsername.Text = avisoEmp.mit_username
                 If txtInfo.Text = "" Then
@@ -336,7 +356,7 @@ Public Class frmMitarbTimas
                 cbxAccount.Checked = True
                 getMitarbeiter()
             Else
-                    MsgBox("Mitarbeiterdaten konnten nicht aus AVISO geladen werden!")
+                MsgBox("Mitarbeiterdaten konnten nicht aus AVISO geladen werden!")
             End If
         End If
     End Sub