تقييم الموضوع :
  • 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 ك ب / التحميلات : 131)
.zip   Kafi.zip (الحجم : 146.43 ك ب / التحميلات : 129)
الرد }}}}
تم الشكر بواسطة:
#3
UP......
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استسفسار حول التعديل على فاتورة المشتريات والقيمة المتألق9 1 162 أمس, 02:47 PM
آخر رد: نبيل كونكت
  اريد طريقة الاتصال المباشر بقاعدة بيانات اكسس abudawoodd 1 248 أمس, 02:03 PM
آخر رد: نبيل كونكت
  [سؤال] طريقة مختلفةلحفظ بيانات Datagridview ابو محمد القحطاني 12 285 16-08-17, 01:04 AM
آخر رد: karimx
  كيفية ربط برنامج بين قاعدة بيانات محلية و اخرى موجودة على سيرفر nowaytorun 3 106 16-08-17, 12:14 AM
آخر رد: حريف برمجة
Bug [سؤال] مشكلة في الاتصال بقاعدة بيانات اوراكل 10g jestenkress 4 94 15-08-17, 06:22 PM
آخر رد: jestenkress
  مساعدة في كود لبرنامج بيانات طلبة yuyu 0 44 15-08-17, 01:59 PM
آخر رد: yuyu
  الاتصال بقاعدة بيانات mysql سلامات 22 436 13-08-17, 12:39 PM
آخر رد: zinom
  سؤال الاتصال بقاعدة بيانات عن طريق Web Service كفاح 8 174 12-08-17, 01:29 AM
آخر رد: سلامات
  [VB.NET] اريد التعديل على الكود 0theghost0 2 80 04-08-17, 08:18 PM
آخر رد: 0theghost0
  [VB.NET] الرجاء التعديل ع كود الفترة التجريبة للبرنامج +سريال e-coder 1 115 04-08-17, 08:21 AM
آخر رد: zinom

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


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