منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
طلب زيادة قيمة في الداتا جريد فيو - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طلب زيادة قيمة في الداتا جريد فيو (/showthread.php?tid=16489)



طلب زيادة قيمة في الداتا جريد فيو - Codack - 18-07-16

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

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

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

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

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

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

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



RE: طلب زيادة قيمة في الداتا جريد فيو - الوادي - 19-07-16

اول شي حذف علامة 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 



RE: طلب زيادة قيمة في الداتا جريد فيو - Codack - 19-07-16

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


RE: طلب زيادة قيمة في الداتا جريد فيو - Codack - 19-07-16

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


RE: طلب زيادة قيمة في الداتا جريد فيو - ahmad omar - 16-04-18

(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 
شكرا لك اخي على هذا الجهد ولكن يعطيني مشكلة في اخر سطر ولم يتم تنفيذ الكود عند اضافة اسم


RE: طلب زيادة قيمة في الداتا جريد فيو - atef_020 - 22-04-18

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


RE: طلب زيادة قيمة في الداتا جريد فيو - سعود - 22-04-18

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

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