16,554
社区成员
发帖
与我相关
我的任务
分享
LItem.UseItemStyleForSubItems = True
LItem.BackColor = IIf((ListView1.Items.Count Mod 2) = 1, Color.Pink, Color.Yellow)
Select Case Row("色号")
Case "粉" : LItem.BackColor = Color.Pink
Case "黄" : LItem.BackColor = Color.Yellow
...
End Select