منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] اضافة عدد معين على كل الاسماء دفعة واحدة - نسخة قابلة للطباعة

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

اضافة عدد معين على كل الاسماء دفعة واحدة - EMADSSS - 19-03-20

احبابي في الله عندي هذا المشروع لعلامات الطلاب اريد مثلا اذا  اخترت اسم عماد وضهر ت اسمائه في الداتا كريت فيو اذا اردت ان اضيف 5/ علامات لاسم عماد مثلا  اضع رقم  قي التكست بوكس رقم2 و بكبسة واحدة على زر اضافة العلامه ان يضيفها دفعة واحدة على العلامات الخاصة باسم عماد وليس ان ادخل على كل اسم على حدا لاضيف / علامات بالاضافة لعلامته السابقة

RE: اضافة عدد معين على كل الاسماء دفعة واحدة - سعود - 19-03-20

PHP كود :
 For i As Integer = 0 To WWDataGridView.Rows.Count - IIf(WWDataGridView.AllowUserToAddRows, 2, 1)
            WWDataGridView.Rows(i).Cells(2).Value += TextBox2.Text
        Next 


RE: اضافة عدد معين على كل الاسماء دفعة واحدة - EMADSSS - 19-03-20

(19-03-20, 10:05 PM)سعود كتب :
PHP كود :
 For i As Integer = 0 To WWDataGridView.Rows.Count - IIf(WWDataGridView.AllowUserToAddRows, 2, 1)
            WWDataGridView.Rows(i).Cells(2).Value += TextBox2.Text
        Next 

اخي الكريم شكرا لمساعدتك ولكن انا لا اريد ان اضع نفس الرقم الذي اضعه في التكست بوكس 2 هو نفسه لكل علامات عماد
انما اريد ان يجمع الرقم الذي اضعه في التكست بوكس 2 + العلامة القديمة
اي اذا كانت علامته القديمه 40 مثلا يضيف اليها العلامة التي وضعتها في التكست بوكس 2 فلو وضعت علامة 5 يجمع 40+5 لكل الاسماء التي اخترتها في الغريد فيو
وشكرا مرة اخرى وياريت المساعدة

RE: اضافة عدد معين على كل الاسماء دفعة واحدة - ابراهيم ايبو - 20-03-20

السلام عليكم ورحمة الله وبركاته
من بعد اذن اخي الغالي سعود جزاه الله كل خير لما يقدمه للاخوة الاعضاء في هذا المنتدى
تفضل اخي  سيتم اعتماد الاسم الذي سيظهر في مربع نص البحث لاضافة الرقم الى العلامات
شيئ اخر بما ان الداتا غرايد فيها صف فارغ بالاخير سيكون عدد الصفوف بالاندكس هو 
WWDataGridView.Rows.Count - 1
اما لو تم الغاء الصف الفارغ سيكون عدد الصفوف هو
WWDataGridView.Rows.Count - 2

كود :
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       For i As Integer = 0 To WWDataGridView.Rows.Count - 2 '  وضعنا 2 لان الداتا غرايد فيها صف فارغ بالاخير
           If WWDataGridView.Rows(i).Cells(1).Value.ToString() = TextBox1.Text Then
               WWDataGridView.Rows(i).Cells(2).Value += Val(TextBox2.Text)
           End If
       Next
   End Sub


RE: اضافة عدد معين على كل الاسماء دفعة واحدة - EMADSSS - 20-03-20

(20-03-20, 06:34 AM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
من بعد اذن اخي الغالي سعود جزاه الله كل خير لما يقدمه للاخوة الاعضاء في هذا المنتدى
تفضل اخي  سيتم اعتماد الاسم الذي سيظهر في مربع نص البحث لاضافة الرقم الى العلامات
شيئ اخر بما ان الداتا غرايد فيها صف فارغ بالاخير سيكون عدد الصفوف بالاندكس هو 
WWDataGridView.Rows.Count - 1
اما لو تم الغاء الصف الفارغ سيكون عدد الصفوف هو
WWDataGridView.Rows.Count - 2

كود :
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       For i As Integer = 0 To WWDataGridView.Rows.Count - 2 '  وضعنا 2 لان الداتا غرايد فيها صف فارغ بالاخير
           If WWDataGridView.Rows(i).Cells(1).Value.ToString() = TextBox1.Text Then
               WWDataGridView.Rows(i).Cells(2).Value += Val(TextBox2.Text)
           End If
       Next
   End Sub

الشكر للجميع وجازاكم الله خيرا