[kafi2030]

بسم الله الرحمن الرحيم

السلام عليكم

كيف لي ان احدث بيانات الليست فيو، بعد كل عملية ادخال

علما ان الكود الدي يقوم بتعبئة بيانات الليست فيو عند تحميل النموذج، شغال مائة بالمائة وهو

كود :

Sub PopulateListView()

        With ListView1
            .Clear()
            .View = View.Details
            .Columns.Add("Note_id", 0, HorizontalAlignment.Center)
            .Columns.Add("ملاحظــــات", 590, HorizontalAlignment.Left)
            .GridLines = False
            .FullRowSelect = True
            .Cursor = Cursors.Hand
            .BackColor = Color.Beige
            .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

    End Sub

وقد قمت باستدعاء ذلك الاجراء بعد عملية الادخال

كود :

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 = Color.Red
            txt_Note.Focus()
            Exit Sub
        End If

        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()

            Note_List_frm.PopulateListView()
        Catch ex As Exception
        End Try
    End Sub

الا ان الجزء من الكود المتعلق باستدعاء الكود المتعلق بتعبئة الليست فيو، لا ينفذ

كود :

Note_List_frm.PopulateListView()

ارجو المساعدة

والف الف شكر