تقييم الموضوع :
  • 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)
الرد



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


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