Question

感谢您花时间在我的问题上。我的问题是，我试图将一些记录写入BLACK＆amp;基于某些条件的灰色。但在做的时候，我能够为所有记录制作黑色，但留下最后一条记录。因此，我错过了为最后一条记录着色。我想把所有的记录变成黑色的颜色。这是我的代码。请找到它。

     For K = 1 To lvMergeGroup.ListItems.Count
     If ptrDataItem.ValidTo = "xxxxxxxxxxx" And ptrDataItem.StatusIndicator = "A" And ptrDataItem.UpdateTimeStamp = "xxxxxxxxxxx" Then 
             lvMergeGroup.ListItems.Item(K).ForeColor = System.Convert.ToUInt32(System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Black))  
     Else
             lvMergeGroup.ListItems.Item(K).ForeColor = System.Convert.ToUInt32(System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Gray))
     End If
     Next K

Answer 1

将循环更改为

K = 0 To lvMergeGroup.ListItems.Count -1

收藏从第0位开始

您还可以为每个循环使用a，这也可以让您单独访问每个项目。

For Each item In lvMergeGroup.ListItems
'code for 'item'
Next

循环时如何使价值继续发扬？

1 个答案: