تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب زيادة قيمة في الداتا جريد فيو
#1
السلام عليكم ورحمة الله وبركاتة

عندي ثلاثة تيكست بوكس

الاسم و النوع و الرقم

وعندي داتا جريد فيو بضيف فيها البيانات اللي في التيكست بوكسات

لكن هناك مشكلة صغير هي اما اضيف بيانات شخص ما يضيف سطر في الداتا جريد فيو وانا اجي اضيف نفس البيانات هي هي تضيفلي سطر تاني جديد

انا عايز اما اضيف بيانات شخص ما لو موجود في الداتا جريد فيو يزود قيمة خانة الرقم 1 او على حسب الرقم اللي اكتبة وميضفش سطر جديد

اما اذا لم يكن موجود يضيف صف جديد
إِنْ يَنْصُرْكُمُ اللَّهُ فَلَا غَالِبَ لَكُمْ وَإِنْ يَخْذُلْكُمْ فَمَنْ ذَا الَّذِي يَنْصُرُكُمْ مِنْ بَعْدِهِ وَعَلَى اللَّهِ فَلْيَتَوَكَّلِ الْمُؤْمِنُونَ

لَيْسَ لَهَا مِنْ دُونِ اللَّهِ كَاشِفَةٌ


الرد
تم الشكر بواسطة:
#2
اول شي حذف علامة Enable Adding للأداة DataGridView
أو عدلها من خصائص الأداة DataGridView وهي الخاصية AllowUserToAddRows وخليها False

لأن الإضافة تتم من التكستبوكس وكمان لو تركتها كما هي حتسبب مشكلة في الكود

PHP كود :
Private Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles Button1.Click
    
' الاسم = Column(0)
    ' 
النوع Column(1)
    
' الرقم = Column(2)

    Dim c = (From row As DataGridViewRow In DataGridView1.Rows
            Where row.Cells(0).Value.Equals(TextBox1.Text.Trim)
            Select row.Cells(0).RowIndex
            ).ToArray

    If c.Count = 0 Then
        DataGridView1.Rows.Add(Me.TextBox1.Text, Me.TextBox2.Text, Me.TextBox3.Text)
    Else
        DataGridView1.Item("الرقم", c.First).Value = Val(DataGridView1.Item(2, c.First).Value) + Val(Me.TextBox3.Text)
    End If

End Sub 
الرد
تم الشكر بواسطة: Codack , الكاتب , khodor1985 , khodor1985
#3
جاري التجربة وحزاك الله خير
الرد
تم الشكر بواسطة: الوادي
#4
تم تجربة الكود ونجح بحمدالله وشكرا على الافادة
الرد
تم الشكر بواسطة: الكاتب , الوادي
#5
(19-07-16, 07:27 AM)الوادي كتب : اول شي حذف علامة Enable Adding للأداة DataGridView
أو عدلها من خصائص الأداة DataGridView وهي الخاصية AllowUserToAddRows وخليها False

لأن الإضافة تتم من التكستبوكس وكمان لو تركتها كما هي حتسبب مشكلة في الكود

PHP كود :
Private Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles Button1.Click
    
' الاسم = Column(0)
    ' 
النوع Column(1)
 
   ' الرقم = Column(2)

    Dim c = (From row As DataGridViewRow In DataGridView1.Rows
            Where row.Cells(0).Value.Equals(TextBox1.Text.Trim)
            Select row.Cells(0).RowIndex
            ).ToArray

    If c.Count = 0 Then
        DataGridView1.Rows.Add(Me.TextBox1.Text, Me.TextBox2.Text, Me.TextBox3.Text)
    Else
        DataGridView1.Item("الرقم", c.First).Value = Val(DataGridView1.Item(2, c.First).Value) + Val(Me.TextBox3.Text)
    End If

End Sub 
شكرا لك اخي على هذا الجهد ولكن يعطيني مشكلة في اخر سطر ولم يتم تنفيذ الكود عند اضافة اسم
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  زيادة الكمية ahmad omar 11 131 17-04-18, 02:27 AM
آخر رد: ملهمـ
  [سؤال] استعراض الداتا جريد فيو بين تاريخين الو0 3 93 16-04-18, 05:27 AM
آخر رد: الو0
  مساعده في كود عرض عدد معين من صفوف الداتا جريد فيو emamtron2014 9 246 11-04-18, 01:00 AM
آخر رد: emamtron2014
  خطأ في كود الحذف من جدول البيانات داخل الداتا جريد فيو Mohamed Samy21 0 57 08-04-18, 05:41 PM
آخر رد: Mohamed Samy21
  اين توجد المشكلة في كود بحث في جميع اعمدة الداتا جرد فيو رسول555 3 127 08-04-18, 10:56 AM
آخر رد: رسول555
  combobox لا يعرض الداتا عند عمل select تناسيم 1 82 05-04-18, 02:52 PM
آخر رد: عبدالله الدوسري
  [VB.NET] جمع قيمة عند تحديث البيانات محمد اسماعيل 8 139 29-03-18, 02:16 AM
آخر رد: محمد اسماعيل
  [VB.NET] جلب قيمة من رابط xml محمد اسماعيل 0 55 17-03-18, 12:44 PM
آخر رد: محمد اسماعيل
  مساعده في الداتا جريد فيو emamtron2014 0 88 15-03-18, 10:32 PM
آخر رد: emamtron2014
  [VB.NET] اسناد قيمة ComboBox الى تيكست بوكس ابو ملاك الخبير 1 96 12-03-18, 05:54 PM
آخر رد: silverlight

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


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