请问listview怎么根据内容判断来改变行的颜色

淡淡的邪

各位大大，请一下listview怎么根据内容判断来改变行的颜色？
1、假如listview的第4列的内容只可能是false或者true
2、根据【第4列】的内容来判断，如果是false的就把这【一整行】的字体颜色改为红色。如果是true就不变

这是添加内容的代码，请问可以在添加的时候就判断然后改变颜色吗？

1. goodsList.ListView1.ListItems.Clear
   
2. For j = 2 To iRow
   
3.     Set itm = goodsList.ListView1.ListItems.Add
   
4.     itm.Text = SHT.Cells(j, 1).Value
   
5.     For k = 1 To iCol - 1  '最大列数
   
6.         itm.SubItems(k) = SHT.Cells(j, k + 1).Value
   
7.     Next
   
8. Next

复制代码

请问该怎么做，谢谢大家了！！{:3_59:}

zjdh

For J = 2 To iRow
        Set itm = goodsList.ListView1.ListItems.Add
        itm.Text = SHt.Cells(J, 1).Value
        For k = 1 To iCol - 1
            itm.SubItems(k) = SHt.Cells(J, k + 1).Value
            If SHt.Cells(J, 4) = False Then
                itm.ForeColor = RGB(255, 0, 0)
                itm.ListSubItems(k).ForeColor = RGB(255, 0, 0)
            End If
        Next
    Next

淡淡的邪

zjdh 发表于 2019-6-15 08:49
For J = 2 To iRow
        Set itm = goodsList.ListView1.ListItems.Add
        itm.Text = SHt.Cells ...

谢谢您的回复。
我试了一下 提示 编译错误：无效限定符      定位在itm.SubItems(k).ForeColor = RGB(255, 0, 0)        的 .SubItems  这里
请问是怎么回事呢？

谢谢哈，改了一小点就可以了itm.SubItems(k).ForeColor = RGB(255, 0, 0) 改成 itm.ListSubItems(k).ForeColor = RGB(255, 0, 0) 就可以了，谢谢大佬的帮助

zjdh

淡淡的邪 发表于 2019-6-15 15:02
谢谢您的回复。
我试了一下 提示 编译错误：无效限定符      定位在itm.SubItems(k).ForeColo ...

哈！我没测试，录入时漏了。