تغيير كود استخدام اداة Msflexgrid الى Listview

كود :
Public Sub Expexam()

Dim i As Integer





              If RS.State = 1 Then RS.Close



sql = "Select Brand as Araba" & _

                            ",PlateNo as PlateNo" & _

                            ",Model as Model" & _

                            ",Exam as Expiration" & _

                            ",iif(Exam<Date(),'RentCar Expired ' & DateDiff('d',Exam,Date()) & ' Day/s','Days Left ' & DateDiff('d',Date(),Exam) & ' Day/s') as Warning" & _

                            " From Car Where Exam<Date() or DateDiff('d',Date(),Exam)<=30 order by CarID"



RS.Open sql, CN, adOpenKeyset, adLockPessimistic



'Mdifrm.Label1.Caption = RS.RecordCount

'RS.Sort = "Expiration"







MDIFrm.MSdikat.Clear



    

        

If RS.RecordCount > 0 Then

Set MDIFrm.MSdikat.DataSource = RS





'==============================================

For i = 1 To RS.RecordCount





MDIFrm.MSdikat.Row = i



Dim t As Date

Dim a As Date

Dim r As Integer





a = Format$(Now, "dd/MM/yyyy")



t = Format$((MDIFrm.MSdikat.TextMatrix(i, 4)), "dd/mm/yyyy")





    If t < a Then

    MDIFrm.MSdikat.Col = 4

    MDIFrm.MSdikat.CellForeColor = &H1414CD

  

     MDIFrm.MSdikat.Col = 5

     MDIFrm.MSdikat.CellForeColor = vbBlue

    

    ElseIf t = a Then

    MDIFrm.MSdikat.Col = 4

   

    MDIFrm.MSdikat.CellForeColor = vbRed

     MDIFrm.MSdikat.Col = 5

     MDIFrm.MSdikat.CellForeColor = vbBlue

    ElseIf t > a Then

    MDIFrm.MSdikat.Col = 4

    MDIFrm.MSdikat.CellForeColor = &HC000&

     MDIFrm.MSdikat.Col = 5

     MDIFrm.MSdikat.CellForeColor = vbBlue



    End If





Next





'==============================================

 

    

     

            MDIFrm.MSdikat.ColWidth(0) = 0

            MDIFrm.MSdikat.ColWidth(1) = 1500

            MDIFrm.MSdikat.ColWidth(2) = 800

            MDIFrm.MSdikat.ColWidth(3) = 800

            MDIFrm.MSdikat.ColWidth(4) = 1000

            MDIFrm.MSdikat.ColWidth(5) = 2000

           

          

            MDIFrm.MSdikat.ColAlignment(0) = 3

            MDIFrm.MSdikat.ColAlignment(1) = 3

            MDIFrm.MSdikat.ColAlignment(2) = 3

            MDIFrm.MSdikat.ColAlignment(3) = 3

            MDIFrm.MSdikat.ColAlignment(4) = 3

            MDIFrm.MSdikat.ColAlignment(5) = 3

            

            

            MDIFrm.MSdikat.ColAlignmentFixed(0) = 3

            MDIFrm.MSdikat.ColAlignmentFixed(1) = 3

            MDIFrm.MSdikat.ColAlignmentFixed(2) = 3

            MDIFrm.MSdikat.ColAlignmentFixed(3) = 3

            MDIFrm.MSdikat.ColAlignmentFixed(4) = 3

            MDIFrm.MSdikat.ColAlignmentFixed(5) = 3

      

  MDIFrm.Show



  

   Else

   MDIFrm.MSdikat.Clear





   End If



End Sub