Mitarbeitersprache

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersucheEinstellungen.vb

@@ -21,6 +21,8 @@ Public Class frmMitarbeitersucheEinstellungen
 
         cboTeam.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & MA.mit_firma & "'", False, "ADMIN", True)
 
+        lbSprachen.fillWithSQL("SELECT [wert], [bezeichnung]  FROM [dbo].[tblSprachen]", False, "ADMIN")
+
         initMA()
     End Sub
 
@@ -49,7 +51,21 @@ Public Class frmMitarbeitersucheEinstellungen
             pic.BackgroundImage = My.Resources.personGray_m
         End If
 
-        End Sub
+
+
+        If MA.mit_Sprachkentnisse IsNot Nothing AndAlso MA.mit_Sprachkentnisse <> "" Then
+            For Each f In MA.mit_Sprachkentnisse.ToString.Split(",")
+                For i = 0 To lbSprachen.Items.Count - 1
+                    If DirectCast(lbSprachen.Items(i), VERAG_PROG_ALLGEMEIN.MyListItem).Value.ToString = f.ToString Then
+                        lbSprachen.SetSelected(i, True)
+                    End If
+                Next
+            Next
+        End If
+
+
+
+    End Sub
 
     Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
         Me.Close()
@@ -63,6 +79,19 @@ Public Class frmMitarbeitersucheEinstellungen
 
         If MA.mit_id <= 0 Then MsgBox("Fehler ID!") : Exit Sub
 
+
+        MA.mit_Sprachkentnisse = ""
+
+        If MA.mit_Sprachkentnisse = "" Then
+            For Each i In lbSprachen.SelectedItems
+                MA.mit_Sprachkentnisse &= DirectCast(i, VERAG_PROG_ALLGEMEIN.MyListItem).Value & ","
+            Next
+        End If
+        If MA.mit_Sprachkentnisse <> "" And MA.mit_Sprachkentnisse.ToString.EndsWith(",") Then
+            MA.mit_Sprachkentnisse = MA.mit_Sprachkentnisse.ToString.Substring(0, MA.mit_Sprachkentnisse.ToString.Length - 1)
+        End If
+
+
         If MA.SAVE Then
             Me.DialogResult = Windows.Forms.DialogResult.OK
             Me.Close()