تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] كيف تلون البيانات المكررة في العمود وتلوين اكبر قيمة في العمود في mshflexgrid1
#11
السلام عليكم

بارك الله فيك اخي طه 

اخي Mhqom اعتقد الان لديك اكثر من خيار للكود الذي تبحث عنه
ارجو وضع رد اذا كان هذا الكود المطلوب او لا 

بالتوفيق


PHP كود :
Public Sub Loadx()
Dim XCol As Integer
Dim txt 
As String
        Dim vMe
        Dim vMin
        Dim vMax
Dim I
xxxII As Integer
Dim s 
As String
xx 
0
""
 
 
   If rs.State adStateOpen Then rs.Close
    rs
.Open "select * from T_DATE"ConadOpenStaticadLockPessimistic
    Set mshflexgrid1
.DataSource rs
    
    With Me
.mshflexgrid1
     vMin 
Val(.TextMatrix(13))
 
    vMax Val(.TextMatrix(13))
 
   For XCol 0 To .Cols 1
    For I 
1 To .Rows 1
    xx 
0
    s 
= .TextMatrix(I3)
 
   For x 1 To .Rows 1
    If 
.TextMatrix(x3) = And xx 1 Then
    xx 
xx 1
    
.Col XCol
    
.Row x
    
.CellBackColor vbGreen
    ElseIf 
.TextMatrix(x3) = And xx 0 Then
    For II 
0 To .Rows 1
    If 
.TextMatrix(II3) = s Then
    
.Col XCol
    
.Row II
    
.CellBackColor vbRed
    End 
If
 
   Next
    End 
If
 
   Next
    Next
    Next
    For I 
1 To .Rows 1
    
    vMe 
Val(.TextMatrix(I3))
 
                       If vMe vMin Then
                            vMin 
vMe
                            
                        End 
If
 
                       If vMe vMax Then
                            vMax 
vMe
                            
                        End 
If
 
               Next
                
               
                For I 
1 To .Rows 1
               
                            
.Row I
                            
.Col 3
                 
If Val(.TextMatrix(I3)) = vMin Then
    
                            
.CellBackColor vbYellow
                            End 
If
 
                      If Val(.TextMatrix(I3)) = vMax Then
                            
.CellBackColor vbYellow
                            End 
If
 
   
    
    
    Next
    End With
End Sub 
محاسب / أحمد عبد العليم

الى اللقاء ان شاء الله Heart
الرد
تم الشكر بواسطة: مصمم هاوي
#12
الف شكر للاخوه الافاضل عن جد صرح علمي كبير واساتذة ومنتسيبين خيرين
شكرا لسعه صدوركم واخص بالذكر ahmedabdelaliem@ @ Taha Okla Syria

شكر للاخوه الفاضل علة تميزهم وحسن سماعهو وسعه صدورهم لحل المشكلات
الرد
تم الشكر بواسطة: ahmedabdelaliem


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] أريد النصيحة بخصوص الإتصال بقاعدة البيانات hamada salah90 2 279 16-09-21, 01:13 PM
آخر رد: hamada salah90
  كود ربط قاعدة البيانات محمية بكلمة سر مع التقرير mido790006 4 391 20-06-21, 03:24 AM
آخر رد: mido790006
Question [vb6.0] هل يمكن ربط قاعدة البيانات اكسس بتقنية Dao نامل المساعدة العاجلة ؟؟ Microformt 3 461 23-05-21, 01:50 AM
آخر رد: Ahmed_Mansoor
  مشكلة قراءة من قاعدة البيانات بعد تنصيب البرنامج على ويندوز 10 aboezzat84 3 668 08-04-21, 06:38 PM
آخر رد: aboezzat84
  اهدي اليكم طريقة الاتصال بقاعدة البيانات عن طريقة المشاركه بدون تعديل كود الاتصال ahmed201 1 592 25-03-21, 11:35 AM
آخر رد: رضوان الجماعي
Rainbow مساعدة في كود حذف الحروف المكررة العبادي 2 10 1,312 07-03-21, 05:27 AM
آخر رد: اسلام الكبابى
Question [vb6.0] هل يمكن ربط قاعدة البيانات اكسس 2007 أو 2016 بتقنية DAO ؟ Microformt 0 420 26-02-21, 06:18 PM
آخر رد: Microformt
  مشكلة عدم ظهور البيانات في التقرير ahmed201 8 1,279 25-02-21, 09:27 PM
آخر رد: ahmed201
  احناج مثال لكيفية استيراد بيانات من ملف اكسيل الى قاعدة البيانات عن طريق الفيجوال amro1965 0 536 19-01-21, 06:22 PM
آخر رد: amro1965
  تغير لون Field بناء على قيمة معينة مصمم هاوي 1 400 05-01-21, 10:33 PM
آخر رد: 62531

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


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