DROPDOWNLIST COM MULTIPLA SELE?ÃO

  [ô] GET: DEF_DEFECT/Create
        Function Create() As ActionResult
            PopProcessDropDownList()
            Return View()
        End Function

        [ô] POST: DEF_DEFECT/Create
        [ô]To protect from overposting attacks, please enable the specific properties you want to bind to, for 
        [ô]more details see http://go.microsoft.com/fwlink/?LinkId=317598.
        <HttpPost()>
        <ValidateAntiForgeryToken()>
        Function Create(<Bind(Include:=[Ô]CODE_DEF,DESCRIPTION_DEF[Ô])> ByVal dEF_DEFECT As DEF_DEFECT) As ActionResult
            If ModelState.IsValid Then
                db.DEF_DEFECT.Add(dEF_DEFECT)

                Dim processSelected As String = Request.Form([Ô]ProcessesList[Ô]).ToString()

                UpdateDefectProcess(dEF_DEFECT, processSelected)

                db.SaveChanges()
                Return RedirectToAction([Ô]Index[Ô])
                
            End If
            Return View(dEF_DEFECT)
        End Function

        [ô] GET: DEF_DEFECT/Edit/5
        Function Edit(ByVal id As String) As ActionResult
            If IsNothing(id) Then
                Return New HttpStatusCodeResult(HttpStatusCode.BadRequest)
            End If

            Dim dEF_DEFECT As DEF_DEFECT = db.DEF_DEFECT.Find(id)
            If IsNothing(dEF_DEFECT) Then
                Return HttpNotFound()
            End If

            PopulateProcessesDropDownList(dEF_DEFECT.PRO_PROCESS)

            Return View(dEF_DEFECT)
        End Function

        Sub PopProcessDropDownList()
            Dim listSelectListItems As List(Of SelectListItem) = New List(Of SelectListItem)

            For Each p As PRO_PROCESS In db.PRO_PROCESS
                Dim selectItem As SelectListItem = New SelectListItem()
                selectItem.Text = p.CODE_PRO
                listSelectListItems.Add(selectItem)
            Next

            ViewBag.ProcessCode = listSelectListItems
        End Sub


        Sub PopulateProcessesDropDownList(selectedprocesses As Object)
            [ô] Dropdown Lists
            Dim allProcesses = From s In db.PRO_PROCESS
                  Order By s.CODE_PRO
                  Select s.CODE_PRO, s.DESCRIPTION_PRO Distinct

            ViewBag.PList = New SelectList(allProcesses, [Ô]CODE_PRO[Ô], [Ô]CODE_PRO[Ô], selectedValue:=selectedprocesses)
        End Sub

        [ô] POST: DEF_DEFECT/Edit/5
        [ô]To protect from overposting attacks, please enable the specific properties you want to bind to, for 
        [ô]more details see http://go.microsoft.com/fwlink/?LinkId=317598.
        <HttpPost()>
        <ValidateAntiForgeryToken()>
        Function Edit(<Bind(Include:=[Ô]CODE_DEF,DESCRIPTION_DEF[Ô])> ByVal dEF_DEFECT As DEF_DEFECT) As ActionResult
            If ModelState.IsValid Then
                Dim processToUpdate = db.DEF_DEFECT _
                               .Include(Function(i) i.PRO_PROCESS) _
                               .Where(Function(i) i.CODE_DEF = dEF_DEFECT.CODE_DEF) _
                               .Single()

                Dim processSelected As String = Request.Form([Ô]ProcessesList[Ô]).ToString()

                UpdateDefectProcess(processToUpdate, processSelected)

                db.Entry(processToUpdate).State = EntityState.Modified

                db.SaveChanges()
                Return RedirectToAction([Ô]Index[Ô])
            End If
            Return View(dEF_DEFECT)
        End Function

        Private Sub UpdateDefectProcess(updateDefect As DEF_DEFECT, processSelected As String)
            [ô]Dim selectedProcessHS = New HashSet(Of String)(processSelected)
            Dim selectedProcessHS = processSelected

            Dim defectProcess As IEnumerable(Of String) = New HashSet(Of String)(updateDefect.PRO_PROCESS.Select(Function(c) c.CODE_PRO))
            For Each c In db.PRO_PROCESS
                If selectedProcessHS.Contains(c.CODE_PRO.ToString()) Then
                    updateDefect.PRO_PROCESS.Add(c)
                Else
                    If defectProcess.Contains(c.CODE_PRO) Then
                        updateDefect.PRO_PROCESS.Remove(c)
                    End If
                End If

            Next

        End Sub