12-10-13, 07:59 AM
بسم الله الرحمن الرحيم
السلام عليكمكيف لي ان احدث بيانات الليست فيو، بعد كل عملية ادخال
علما ان الكود الدي يقوم بتعبئة بيانات الليست فيو عند تحميل النموذج، شغال مائة بالمائة وهو
كود :
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()
ارجو المساعدة
والف الف شكر