[ahmedabdelaliem]

السلام عليكم

بارك الله فيك اخي طه وزادك من علمه وفضله


اخي Mhqom

استبدل الكود بهذا الكود

PHP كود :

Public Sub Loadx()
Dim I, XCol As Integer
Dim txt As String
        Dim vMe
        Dim vMin
        Dim vMax

 
If rs.State = adStateOpen Then rs.Close
rs.Open "select * from T_DATE", Con, adOpenStatic, adLockPessimistic
Set mshflexgrid1.DataSource = rs

With Me.mshflexgrid1
 vMin = Val(.TextMatrix(1, 3))
 vMax = Val(.TextMatrix(1, 3))

For XCol = 3 To .Cols - 1
For I = 1 To .Rows - 1

.Row = I
.Col = .Cols - 1
If Trim(.Text) = "repeater" Then
.Row = I
.Col = XCol
.CellBackColor = vbRed
ElseIf Trim(.Text) = "non repeater" Then
.Row = I
.Col = XCol
.CellBackColor = vbGreen
End If

vMe = Val(.TextMatrix(I, 3))
                    If vMe < vMin Then
                        vMin = vMe
                        
                    End If
                    If vMe > vMax Then
                        vMax = vMe
                        
                    End If
                   
           
            Next I
            Next XCol
           
            For I = 1 To .Rows - 1
           
                        .Row = I
                        .Col = 3
             If Val(.TextMatrix(I, 3)) = vMin Then

                        .CellBackColor = vbYellow
                        End If
                   If Val(.TextMatrix(I, 3)) = vMax Then
                        .CellBackColor = vbYellow
                        End If



Next
End With


End Sub 


بالتوفيق