تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كودى داتاجريدفيو وبه خطا ارجو الاصلاح
#1
For i = 0 To DataGridView1.Rows.Count - 1

            For j = 2 To DataGridView1.Columns.Count - 1

                Dim m As Integer = DataGridView1.Rows(i).Cells(j).Value
                Dim a As String
                If m >= 135 Then
                    a = "ممتاز"
                    DataGridView1.Rows(i).Cells(j).Value.ToString = a
                    MsgBox(a)
                ElseIf m >= 120 Then
                    a = "جيد جدا"
                    DataGridView1.Rows(i).Cells(j).Value.ToString = a
                    'MsgBox(a)
                ElseIf m >= 105 Then
                    a = "جيد "
                    a = DataGridView1.Rows(i).Cells(j).Value.ToString
                    'MsgBox(a)
                ElseIf m >= 90 Then
                    a = "مقبول "
                    a = DataGridView1.Rows(i).Cells(j).Value.ToString
                    'MsgBox(a)
                Else
                    'm < 90 Then
                    a = "ضعيف "
                    a = DataGridView1.Rows(i).Cells(j).Value.ToString

                    'MsgBox(a)
                End If
            Next
        Next
الرد
تم الشكر بواسطة:
#2
احذف ToString
هذا تعديل للكود
PHP كود :
For 0 To DataGridView1.Rows.Count 1

            For j 
2 To DataGridView1.Columns.Count 1

                Dim m 
As Integer DataGridView1.Rows(i).Cells(j).Value
                Dim a 
As String
                If m 
>= 135 Then
                    a 
"ممتاز"
 
                   DataGridView1.Rows(i).Cells(j).Value a
                    MsgBox
(a)
 
               ElseIf m >= 120 Then
                    a 
"جيد جدا"
 
                   DataGridView1.Rows(i).Cells(j).Value a
                    
'MsgBox(a)
                ElseIf m >= 105 Then
                    a = "جيد "
                    DataGridView1.Rows(i).Cells(j).Value = a
                    '
MsgBox(a)
 
               ElseIf m >= 90 Then
                    a 
"مقبول "
 
                   DataGridView1.Rows(i).Cells(j).Value a
                    
'MsgBox(a)
                Else
                    '
90 Then
                    a 
"ضعيف "
 
                   DataGridView1.Rows(i).Cells(j).Value a

                    
'MsgBox(a)
                End If
            Next
        Next 
الرد
تم الشكر بواسطة: عبد العزيز البسكري , sirnon
#3
شكرا على الرد
والكود منطقيا شغال
لكن اعانى من مشكلة التطبيق الخلايا datagridview.rows(I).cell(j).value
تعتبر integer
والمتغير a من النوع string
كيف احل هذه المشكلة
الرد
تم الشكر بواسطة:
#4
هذا تعديل الكود يستخدم الحدث CellFormatting للداتاجريد
PHP كود :
Private Sub DataGridView1_CellFormatting(ByVal sender As ObjectByVal e As DataGridViewCellFormattingEventArgsHandles DataGridView1.CellFormatting
    If e
.ColumnIndex >= 2 Then
        Dim m 
As Integer e.Value
        If m 
>= 135 Then
            e
.Value "ممتاز"
 
       ElseIf m >= 120 Then
            e
.Value "جيد جدا"
 
       ElseIf m >= 105 Then
            e
.Value "جيد "
 
       ElseIf m >= 90 Then
            e
.Value "مقبول "
 
       Else
            e
.Value "ضعيف "
 
       End If
 
   End If
End Sub 
الرد
تم الشكر بواسطة: sirnon
#5
شكرا على المساعدة وهذا هو المطلوب

[صورة مرفقة: image.png]

ارجو كود لاضافة Header and footer and some images for PrintDocument
وشكرا مقدما
الرد
تم الشكر بواسطة:
#6
لو سمحت عاوز اعمل تحقق من البيانات ممكن الكود
التحقق من شرطين
الاول الخانات كلها بها بيانات وليست فارغة
قيمة الخلايا من العمود ٢ الى الاخير اقل من أو تساوى ١٥٠
وشكرا واعذرنى أن أثقلت عليك
الرد
تم الشكر بواسطة:
#7
اخى طالب برمجة
اريد جعل البيانات ديناميكية لاستخدامها مع اكثر من قسم
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] حدثت مشكله بالكود ارجو المساعده اليوم السابع 0 39 12-11-19, 01:01 PM
آخر رد: اليوم السابع
  [VB.NET] سؤال بخصوص webclint ارجو الدخول والمشاركه اليوم السابع 16 285 12-11-19, 03:23 AM
آخر رد: اليوم السابع
  [VB.NET] سؤال بخصوص webclint ارجو الدخول والمشاركه اليوم السابع 1 58 10-11-19, 06:36 PM
آخر رد: AbdoDabak
  ارجو المساعده فى عمل كود تفعيل يفعل ايبي جهاز واحد فقط على زهران 0 57 01-11-19, 05:55 PM
آخر رد: على زهران
  مشكله فى الكريستال ريبورت ارجو المساعده خالد كامل1 1 98 26-10-19, 11:19 PM
آخر رد: خالد كامل1
  سؤال بعد اذن اخواتي الافاضل ارجو مشاركتي اليوم السابع 22 446 24-10-19, 11:11 PM
آخر رد: اليوم السابع
  كود بحث المشكله لم تنحل ارجو المساعده mostafa12 4 191 17-10-19, 02:10 PM
آخر رد: mostafa12
Exclamation ارجو المساعده على زهران 2 125 08-10-19, 11:12 PM
آخر رد: على زهران
  [سؤال] اخوان الاعزاء ارجو مساعدتى في حل عرض بيانات في تقرير كريستال ريبورت nazarakrawi 7 260 02-10-19, 10:21 PM
آخر رد: asemshahen5
  [سؤال] ارجو المساعده فى خطأ فى الجمله الشرطيه على زهران 4 172 16-09-19, 11:57 PM
آخر رد: يونس علي

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


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