[سؤال] تحديث بيانات الليست فيو - بعد التعديل ؟

كود :

Private Sub btn_save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_save.Click



        If txt_Note.Text = "" Then

            lbl_Caution.Visible = True

            lbl_Caution.Text = "اســـم الملاحظــــــة لا يمكن ان يكون فارغاً"

            Panel2.BackColor = System.Drawing.ColorTranslator.FromHtml("#AA1919")

            txt_Note.Focus()

            Exit Sub

        End If



        Dim List = From B In db.Fixed_Notes Select B

        For Each x In List



            If txt_Note.Text = x.Note Then

                lbl_Caution.Visible = True

                lbl_Caution.Text = "اســـم الملاحظــــــة مكــــرر !!"



                Panel2.BackColor = System.Drawing.ColorTranslator.FromHtml("#AA1919")

                txt_Note.Focus()

                txt_Note.SelectAll()

                Exit Sub

            End If

        Next





        If check_edit_Add = "Add" Then

            Try

                Dim Tabl As DB.Fixed_Note = New DB.Fixed_Note



                With Tabl

                    .Note = txt_Note.Text

                End With



                _AddingNew(Tabl)

                Clear_Txts()

                txt_Note.Focus()



                Dim f As Form

                For Each f In Main_Control_frm.MdiChildren

                    If TypeOf f Is Note_List_frm Then

                        DirectCast(f, Note_List_frm).PopulateListView()

                    End If

                Next f



            Catch ex As Exception

            End Try

        End If



        If check_edit_Add = "Edit" Then

            With BBTab

                .Note = txt_Note.Text

            End With



            EditRec(BBTab, txt_Note_id.Text)



            Dim f As Form

            For Each f In Main_Control_frm.MdiChildren

                If TypeOf f Is Note_List_frm Then

                    DirectCast(f, Note_List_frm).PopulateListView()

                End If

            Next f

            Me.Close()

        End If



        

    End Sub

كود :

Sub PopulateListView()



        With ListView1

            .Clear()

            .View = View.Details

            .Columns.Add("Note_id", 0, HorizontalAlignment.Center)

            '.Columns.Add("ملاحظــــات", 590, HorizontalAlignment.Left)

            .Columns.Add("", 575, HorizontalAlignment.Left)

            .GridLines = False

            .FullRowSelect = True

            .Cursor = Cursors.Hand

            .BackColor = System.Drawing.ColorTranslator.FromHtml(My_back_Color_Listview)

            .ForeColor = Color.Black





            Dim Lst As New ListViewItem

            Dim List = From B In db.Fixed_Notes Select B



            For Each x In List



                Lst = New ListViewItem(x.Note_id)

                Lst.SubItems.Add(x.Note)

                .Items.Add(Lst)

            Next

        End With



        ListView1.Sorting = SortOrder.Ascending

        ListView1.ListViewItemSorter = New ListViewItemComparer(1)

        ListView1.Sort()

    End Sub