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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اخواني لدي مثال مشروع تعديل علي بيانات موجودة علي حسب تاريخ اليوم نور الهدى الهدى 0 22 منذ 11 ساعة مضت
آخر رد: نور الهدى الهدى
  عرض النموذج في وضع التعديل atefkhalf2004 0 28 أمس, 12:52 AM
آخر رد: atefkhalf2004
  تحديث الإصدار و حذف النسخة القديمة hichem1 36 332 21-06-18, 01:02 AM
آخر رد: عبدالله الدوسري
  [سؤال] التعديل على ملف txt على dropbox او google drive mohamed haroon 4 511 20-06-18, 02:22 AM
آخر رد: YousefOkasha
  [VB.NET] كيف يمكنني معرفة حجم قاعدة بيانات بالفيجول دوت نت issatiger 1 33 19-06-18, 03:46 PM
آخر رد: عبد العزيز البسكري
Photo [سؤال] لأهل الخبرة أواجه مشكلة في قراءة بيانات من الداتا جريد فيو الى كريستال ريبورت dametucorazon 11 191 17-06-18, 03:15 AM
آخر رد: elgokr
  في ما يخص تحديث البرنامج إلى إصدار جديد hichem1 22 345 15-06-18, 08:19 PM
آخر رد: YousefOkasha
  طلب كود التعديل علي قاعدة بيانات اكسس hatem555 3 63 15-06-18, 05:34 AM
آخر رد: elgokr
  [سؤال] كيف أقوم بعمل تحديث للبيانات وخاصة حفظ الصورة مرة أخري mysql +vb>.NET dametucorazon 2 75 10-06-18, 08:02 PM
آخر رد: dametucorazon
  [سؤال] كيف أقوم بعمل سيرفر علي جهازي لقواعد بيانات MYSQL +VB.NET dametucorazon 2 82 10-06-18, 01:39 AM
آخر رد: dametucorazon

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


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