تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] تحديث بيانات الليست فيو - بعد التعديل ؟
#1
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته

مشكلتي باختصار
ان البيانات التي جرى تعديلها لا تظهر على الليست فيو، حتى اقوم باغلاق النافذة، ثم اقوم بفتحها من جديد


شاشة الاضافة ......تعمل عندي بشكل ممتاز....حيث تعدل البيانات على الليست فيو، مباشرة بعد كل عملية اضافة تتم من قبل المستثمر.وقد قمت بجعل شاشة الاضافة، تعمل كشاشة تعديل، مع تعديل بالكود،

الكود الدي سبق لي استعماله بالاضافة من اجل عملية التحديث على الليست فيو ( والدي هو شغال مائة بالمائة ) استعملته ايضا بالتعديل...


لا ادري لماذا لا تتم تعديل البيانات على الليست فيو، حتى اقوم باغلاق الشاشة وفتحها من جديد
كود :
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


ارجو تصويب الكود

والف الف شكر


الملفات المرفقة صورة/صور
               
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم

بعد 33 مشاهدة ، وانتظار يومين للجواب
يبدو انني لم اوفق بشرح مشكلتي

لهذا قررت ان اضع مثال للمشكلة


باختصار
بعد كل عملية ادخال تتحدث البيانات على الليست فيو مباشرة

بينما في حالة التعديل .....البيانات التي جرى تعديلها .... لا تتعدل على الليست فيو
حتى اقوم باغلاق النافذة وفتحها من جديد

ارجو رجاء حار ......الاطلاع على المثال المرفق
وتعديله
ملاحظة ( المثال معمول على فيجوال 2012)

والف الف شكر


الملفات المرفقة
.zip   Data_Kafi.zip (الحجم : 117.33 ك ب / التحميلات : 140)
.zip   Kafi.zip (الحجم : 146.43 ك ب / التحميلات : 137)
الرد }}}}
تم الشكر بواسطة:
#3
UP......
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم

تم شرح مشكلتي بالصور ......ثم قمت بوضع مثال ........
وحتى تاريخه لم اجد رد

هل السؤال صعب لهذه الدرجة، ام ان السؤال غير واضح
!!!!!!!!!
الرد }}}}
تم الشكر بواسطة:
#5
حاولت فتح الملف المرفق على برنامج الدوت نت
لا يعمل
أعتقد ان في اشكالية من عندك
عندي اصدار الدوت نت 2010
هل انت تعمل على 2012 ؟
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] قاعدة بيانات اكسس hglogtd 8 134 14-10-17, 03:38 PM
آخر رد: hglogtd
  [VB.NET] مطلوب التعديل علي الكود التالي محمد اسماعيل 2 64 11-10-17, 01:08 PM
آخر رد: محمد اسماعيل
  [VB.NET] استفسار :- تحديث ال TEXTBOX dubai.eig 8 157 10-10-17, 07:03 PM
آخر رد: dubai.eig
  مساعده بفكره بناء جدول بيانات ( اداره رواتب الموظفين) Rabeea Qbaha 4 124 09-10-17, 12:22 AM
آخر رد: Amir_alzubidy
  [VB.NET] التعديل على الكود - رقم التسلسلي dubai.eig 4 132 08-10-17, 11:30 PM
آخر رد: dubai.eig
  [VB.NET] اريد التعديل علي المديول التالي محمد اسماعيل 2 65 08-10-17, 07:37 PM
آخر رد: محمد اسماعيل
  كيف الاتصال بقاعدة بيانات SQLite أحمد إبراهيم سعد 4 137 04-10-17, 12:22 PM
آخر رد: أحمد إبراهيم سعد
  [VB.NET] مشكلة ظهور جدولين من قاعدة بيانات أكسس في أداة DataGridView Waleed Al-Khamesy 7 147 30-09-17, 11:50 PM
آخر رد: Abu Ehab
  مشكلة فالكوكاييز تشفير بيانات الكوكاييز الماجيك مسعد 1 65 28-09-17, 11:16 AM
آخر رد: الماجيك مسعد
  [سؤال] ممكن طريقة عمل برنامج وارسال التحديثات اليه عندما يتوفر تحديث Mina Botros 3 131 20-09-17, 01:11 AM
آخر رد: سعود الشامان

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم