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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] مطلوب كود ربط combo box بقاعدة بيانات (اكسيس) BLACKBROWN5 1 28 أمس, 02:14 PM
آخر رد: tryold
Sad [VB.NET] كيفية تصميم قاعدة بيانات SQL Server وربطها مع الVS 2010 Ayman97 0 25 06-12-16, 04:34 PM
آخر رد: Ayman97
  انشاء قاعدة بيانات بإمتداد خاص بك thevirus 5 125 05-12-16, 03:09 PM
آخر رد: thevirus
  [سؤال] كيف اجعل البرنامج يحفظ بيانات؟ The Light Fire 9 133 05-12-16, 12:58 AM
آخر رد: ali.alfoly
  [VB.NET] استدعاء بيانات من الاكسس لل vb.net مهند الموسوي 1 71 02-12-16, 03:14 PM
آخر رد: مهند الموسوي
  [VB.NET] طلب التعديل في كود بسيط rabeh.ram 2 58 29-11-16, 11:10 PM
آخر رد: rabeh.ram
  خطاء عند التعديل علي Checkbox السيد الجوهري 4 66 27-11-16, 04:10 PM
آخر رد: السيد الجوهري
  [VB.NET] مشكلة عند عمل تحديث للبيانات Asmaa adel 3 79 27-11-16, 03:56 PM
آخر رد: Adrees
  ما هو الخطاء فى هذا الكود "كود التعديل" السيد الجوهري 1 65 26-11-16, 03:22 AM
آخر رد: أبو عمر
  [سؤال] مشاركة برنامج متصل بقاعدة بيانات sql على شبكه محلية mohammedbassim 3 85 24-11-16, 11:40 PM
آخر رد: mohammedbassim

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


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