بسم الله الرحمن الرحيم
مشكلتي باختصار
ان البيانات التي جرى تعديلها لا تظهر على الليست فيو، حتى اقوم باغلاق النافذة، ثم اقوم بفتحها من جديد
شاشة الاضافة ......تعمل عندي بشكل ممتاز....حيث تعدل البيانات على الليست فيو، مباشرة بعد كل عملية اضافة تتم من قبل المستثمر.وقد قمت بجعل شاشة الاضافة، تعمل كشاشة تعديل، مع تعديل بالكود،
الكود الدي سبق لي استعماله بالاضافة من اجل عملية التحديث على الليست فيو ( والدي هو شغال مائة بالمائة ) استعملته ايضا بالتعديل...
لا ادري لماذا لا تتم تعديل البيانات على الليست فيو، حتى اقوم باغلاق الشاشة وفتحها من جديد
كود :
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ارجو تصويب الكود
والف الف شكر
