تقييم الموضوع :
  • 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
اخى طالب برمجة
اريد جعل البيانات ديناميكية لاستخدامها مع اكثر من قسم
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ارجو الافادة للضرورة mohamed sabry 1 110 13-01-24, 03:37 AM
آخر رد: Taha Okla
  ارجو المساعدة فى شاشة طباعة الباركود new_programer 10 561 09-01-24, 08:41 PM
آخر رد: new_programer
  [سؤال] اخوان الاعزاء ارجو مساعدتى في حل عرض بيانات في تقرير كريستال ريبورت nazarakrawi 8 3,897 21-08-23, 11:11 PM
آخر رد: mohamed Matrix
  [SQL] يوجد لدى خطأبرمجى ارجو المساعدة عاصم النجار 6 499 26-07-23, 05:22 PM
آخر رد: عبد الخالق
  اخوانى الاحباب ارجو المساعدة فى كود النسخ واللصق mhareek 1 428 15-07-23, 02:52 PM
آخر رد: أبووسم
  [VB.NET] ارجو المساعده مرفق سورس كود البرنامج فى المطلوب المساعده فيه hanyeltnen 2 603 04-02-23, 01:30 AM
آخر رد: aljzazy
  [سؤال] ارجو المساعدة YasirAZ 0 386 04-02-23, 12:01 AM
آخر رد: YasirAZ
  [سؤال] ارجو المساعدة فى هذا الكود medo_ali972 11 1,158 27-12-22, 11:44 AM
آخر رد: medo_ali972
  [VB.NET] ارجو منكم المساعدة اخوتي و اصدقائي sher 1 304 20-12-22, 01:02 AM
آخر رد: Jounior_P
  ارجو ان تجيبوني هذه المرة ahmedbezia 4 399 19-12-22, 02:06 PM
آخر رد: Taha Okla

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


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