VB ListView 控件加色

http://zhidao.baidu.com/question/118136588.html

如：

Me.ListView1.ListItems(行数).ListSubItems.Item(列数).ForeColor = vbRed '红色 ‘改变某格字体颜色

 

但目前有一个bug,  需要如下使用，不然，最后一行数据，不能改变颜色

    preStatus = 0

　　row = 1
    Do While Not rs.EOF
    
        If preStatus = common.DB_RECORD_STATUS_DELETE Then
            For t = 1 To 9
　　　　　　　' 注：不能改变当前行的颜色，只能改变当前行之前的颜色。
            Me.ListView1.ListItems(row - 1).ListSubItems.Item(t).ForeColor = vbRed '红色  
            Next
        
        End If
        preStatus = rs("status")
        
        
        If rs!gender = "M" Then tb = 1
        If rs!gender = "F" Then tb = 2
        Set addLVW = Me.ListView1.ListItems.add(, , rs!repair_no)
　　wend

　　‘ 以下改变最后一行数据的颜色。

　　If preStatus = common.DB_RECORD_STATUS_DELETE Then
　　　　Set a = Me.ListView1.ListItems.add(, , "1")

　　　　For t = 1 To 9
　　　　Me.ListView1.ListItems(row - 1).ListSubItems.Item(t).ForeColor = vbRed '红色 ‘改变某格字体颜色
　　　　Next

　　End If