تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تعديل الكود
#1
اريد تعديل على الكود وهو عند الضغط على الدات قريد فيو اي عمل تشيك علامة صح يجمع كم سلكت كم صح وعند الغاء علامة الصح وحدة او اثنتين يقوم بتنقيص العدد المؤشر عليه
PHP كود :
     For i 0 To DataGridView1.Rows.Count 1
            If DataGridView1
.Rows(i).Cells(0).Value True Then
             Label8
.Text i  
end 
if 
الرد
تم الشكر بواسطة:
#2
السلام عليكم...
تفضل:
كود :
Dim a As Integer = 0

       For i As Integer = 1 To DataGridView1.Rows.Count - 1
           If DataGridView1.Rows(i).Cells(0).Value = vbTrue Then
               a += 1
           End If
       Next
       Label1.Text = a + 1
المبرمج لا يفكر في المشكلة بل في الحل!!
الرد
تم الشكر بواسطة: عمور2016 , عمور2016 , sofiane-phy , lafi , lafi
#3
شكرا جزيلا اخي اسامه

هل لوتكرمت تغير الكود عند الغاء المؤشر ينقص في عدد المؤاشرين وايضا اين اضع الحدث في الكليك او التشينج تحياتي
الرد
تم الشكر بواسطة:
#4
ممكن تحط الكود في Timer وتشغله في load الفورم, أي تغير هيظهر فوراً.
المبرمج لا يفكر في المشكلة بل في الحل!!
الرد
تم الشكر بواسطة: sofiane-phy , lafi
#5
PHP كود :
       Txt_InvCount.Text dgvItems.Rows.Cast(Of DataGridViewRow).Where(Function(rowCStr(row.Cells(0).Value) = True).Select(Function(rowCDbl(Val(row.Cells(0).Value))).Count() 

PHP كود :
   Private Sub dgvItems_CellValueChanged(sender As ObjectAs DataGridViewCellEventArgsHandles dgvItems.CellValueChanged
        Txt_InvCount
.Text dgvItems.Rows.Cast(Of DataGridViewRow).Where(Function(rowCStr(row.Cells(0).Value) = True).Select(Function(rowCDbl(Val(row.Cells(0).Value))).Count()
 
   End Sub 
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر




الرد
#6
(30-10-20, 12:12 AM)asemshahen5 كتب :
PHP كود :
       Txt_InvCount.Text dgvItems.Rows.Cast(Of DataGridViewRow).Where(Function(rowCStr(row.Cells(0).Value) = True).Select(Function(rowCDbl(Val(row.Cells(0).Value))).Count() 

PHP كود :
   Private Sub dgvItems_CellValueChanged(sender As ObjectAs DataGridViewCellEventArgsHandles dgvItems.CellValueChanged
        Txt_InvCount
.Text dgvItems.Rows.Cast(Of DataGridViewRow).Where(Function(rowCStr(row.Cells(0).Value) = True).Select(Function(rowCDbl(Val(row.Cells(0).Value))).Count()
 
   End Sub 

ممكن تختصر كود Count
مع استخدام دالة التحويل CBool
كود :
Txt_InvCount.Text = dgvItems.Rows.Cast(Of DataGridViewRow).Count(Function(row) CBool(row.Cells(0).Value))
أو بدون استخدام دالة التحويل
كود :
Txt_InvCount.Text = dgvItems.Rows.Cast(Of DataGridViewRow).Count(Function(row) row.Cells(0).Value)
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] كيف أستخدم TRansaction حتى أضمن تطبيق الكود بشكل جيد sniperjawadino 6 111 , 05:29 PM
آخر رد: sniperjawadino
  تعديل علي progress bar mohamedat 10 393 05-05-21, 05:21 AM
آخر رد: bidaya
  كيف يتم تعديل البيانات بين تاريخين في sql جيولوجي مبتدئ 3 208 28-04-21, 03:50 AM
آخر رد: جيولوجي مبتدئ
  [VB.NET] الكود المكافئ لعرض أسماء الجداول فى قاعدة البيانات mmaalmesry 4 351 23-04-21, 08:30 AM
آخر رد: d3vc0d
  [VB.NET] أرجو التعديل في الكود المرفق معتز حسن 3 268 10-04-21, 06:33 PM
آخر رد: معتز حسن
  [VB.NET] اريد مساعدة في حل الكود asrar 6 836 27-03-21, 11:08 PM
آخر رد: asrar
  كيف أحط attachment في إيميل المرسل من البرنامج؟ ما هو الكود؟ Alziny 2 265 27-03-21, 05:17 AM
آخر رد: علي بنيان
  تعديل كود محول من c# الى vb nabil.1710 4 443 25-03-21, 12:38 AM
آخر رد: nabil.1710
  ارجو التعديل علىى هذا الكود من فضلكم على زهران 2 298 19-03-21, 11:31 PM
آخر رد: على زهران
  محتاج التعديل علي الكود اليوم السابع 2 358 19-03-21, 04:02 AM
آخر رد: اليوم السابع

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم