منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : طلب زيادة قيمة في الداتا جريد فيو
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله وبركاتة

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

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

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

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

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

اما اذا لم يكن موجود يضيف صف جديد
اول شي حذف علامة 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 
جاري التجربة وحزاك الله خير
تم تجربة الكود ونجح بحمدالله وشكرا على الافادة
(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 
شكرا لك اخي على هذا الجهد ولكن يعطيني مشكلة في اخر سطر ولم يتم تنفيذ الكود عند اضافة اسم
انا عندى مشكلة وهى أن انى لما حفظ البيانات اللتى أدخلها فى التكست بوكس ﻻ تظهر فى الدتا جريد فيو أﻻ بعد الخروج من الفورم   الدخول مرة أخرى
(22-04-18, 04:06 AM)atef_020 كتب : [ -> ]انا عندى مشكلة وهى أن انى لما حفظ البيانات اللتى أدخلها فى التكست بوكس ﻻ تظهر فى الدتا جريد فيو أﻻ بعد الخروج من الفورم   الدخول مرة أخرى

اكتب  اكواد تحميل البيانات باجراء مستقل وتنادي به عند كل تحديث.