[Codack]

السلام عليكم ورحمة الله وبركاتة

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

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

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

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

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

اما اذا لم يكن موجود يضيف صف جديد

[الوادي]

اول شي حذف علامة Enable Adding للأداة DataGridView
أو عدلها من خصائص الأداة DataGridView وهي الخاصية AllowUserToAddRows وخليها False

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

PHP كود :

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles 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]

جاري التجربة وحزاك الله خير

[Codack]

تم تجربة الكود ونجح بحمدالله وشكرا على الافادة

[ahmad omar]

(19-07-16, 07:27 AM)الوادي كتب : اول شي حذف علامة Enable Adding للأداة DataGridView
أو عدلها من خصائص الأداة DataGridView وهي الخاصية AllowUserToAddRows وخليها False

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

PHP كود :

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles 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 


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

[atef_020]

انا عندى مشكلة وهى أن انى لما حفظ البيانات اللتى أدخلها فى التكست بوكس ﻻ تظهر فى الدتا جريد فيو أﻻ بعد الخروج من الفورم   الدخول مرة أخرى

[سعود]

(22-04-18, 04:06 AM)atef_020 كتب : انا عندى مشكلة وهى أن انى لما حفظ البيانات اللتى أدخلها فى التكست بوكس ﻻ تظهر فى الدتا جريد فيو أﻻ بعد الخروج من الفورم   الدخول مرة أخرى

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