احبابي في الله عندي هذا المشروع لعلامات الطلاب اريد مثلا اذا اخترت اسم عماد وضهر ت اسمائه في الداتا كريت فيو اذا اردت ان اضيف 5/ علامات لاسم عماد مثلا اضع رقم قي التكست بوكس رقم2 و بكبسة واحدة على زر اضافة العلامه ان يضيفها دفعة واحدة على العلامات الخاصة باسم عماد وليس ان ادخل على كل اسم على حدا لاضيف / علامات بالاضافة لعلامته السابقة
(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 لكل الاسماء التي اخترتها في الغريد فيو
وشكرا مرة اخرى وياريت المساعدة
السلام عليكم ورحمة الله وبركاته
من بعد اذن اخي الغالي سعود جزاه الله كل خير لما يقدمه للاخوة الاعضاء في هذا المنتدى
تفضل اخي سيتم اعتماد الاسم الذي سيظهر في مربع نص البحث لاضافة الرقم الى العلامات
شيئ اخر بما ان الداتا غرايد فيها صف فارغ بالاخير سيكون عدد الصفوف بالاندكس هو
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
(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
الشكر للجميع وجازاكم الله خيرا