تقييم الموضوع :
  • 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 ؟
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف اقوم بحفظ بيانات بقاعدة اكسيس داتا بيز موجودة على سيرفر رهف العريفي 7 90 منذ 11 ساعة مضت
آخر رد: رهف العريفي
  [VB.NET] اتصال بقاعدة بيانات mysql عن طريق الانترنت kirama 2 74 أمس, 04:01 PM
آخر رد: thevirus
  [سؤال] ماذا افعل ؟ في ضياع قاعدة بيانات سكيول سيرفر 2008 salah mansour 3 59 أمس, 03:55 PM
آخر رد: thevirus
  [VB.NET] يرجى التعديل على الكود dubai.eig 4 77 18-01-17, 05:25 PM
آخر رد: dubai.eig
  الاتصال بقاعدة بيانات SQL SEVER موجودة بجهاز اخر كفاح 5 141 15-01-17, 10:46 PM
آخر رد: كفاح
  ياشباب ارجو المساعده رنامج لا جلب اي قاعده بيانات في الجهاز اكسس او اكسل وعرضها ammaraliali 5 110 15-01-17, 06:11 PM
آخر رد: khodor1985
  [VB.NET] سوال مشكلة في اخذ نسخة احتياطية من قاعدة بيانات SQL كفاح 4 97 14-01-17, 08:19 PM
آخر رد: كفاح
  طلب طريقه عمل الصلاحيات للمستخدمين بقاعده بيانات sql مبرمج أوتار 23 7,075 10-01-17, 01:58 PM
آخر رد: solbi
  منع تسجيل بيانات علي جدول الحركات بقاعدة بيانات sql خلال فترة زمنية (اقفال الفترة ا) السيد الجوهري 4 153 09-01-17, 07:22 PM
آخر رد: السيد الجوهري
  التعديل الذي أقوم به في الفورم لا يظهر عند عمل RUN نسيم 9 297 28-12-16, 05:10 PM
آخر رد: Basil Abdallah

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


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