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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ارجو تعديل فى جملة SELECT new_programer 3 159 14-10-20, 11:50 PM
آخر رد: new_programer
  ارجو المساعدة في كود حذف فاتورة بيع sofiane-phy 1 147 11-10-20, 12:12 AM
آخر رد: محمد كريّم
  [VB.NET] ارجو المساعدة مشكل les boucles fohah 2 160 04-10-20, 06:19 PM
آخر رد: fohah
  [سؤال] ارجو الرد سريعا مايسترو 2 217 19-09-20, 04:12 PM
آخر رد: عبد الرؤوف
  [VB.NET] ارجو المساعدة في برنامج لتشغيل الملفات الصوتية لنطق الارقام eman kh 5 520 13-09-20, 06:05 PM
آخر رد: eman kh
  [سؤال] ارجو المساعده في كود منه 3 248 30-08-20, 10:38 AM
آخر رد: Anas Mahmoud
  مشكلة في عمل ابديت لجدول بسبب التاريخ ارجو المساعدة stiger 2 276 24-08-20, 04:40 PM
آخر رد: stiger
  اريد عرض اليوم حسب اختيار التاريخ ارجو المساعده الله يبارك فيكم كريم عبودي 4 434 23-08-20, 01:59 PM
آخر رد: اسامه الهرماوي
  خطأ ارجو المتابعة خالد كامل1 9 592 03-08-20, 09:49 PM
آخر رد: alshandodi
  ارجو تفعيل الازرار الاضافة و التعديل والبحث والحذف عمور2016 3 578 11-07-20, 10:14 PM
آخر رد: alshandodi

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


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