Glenn,

I could get the rows to be a color, but not the columns. I don't know if that's a bug or if that's how it's supposed to work.

~~Bonnie


>I am having trouble changing the color of cells dynamically in a listview. Here is the code which I thought would work (but it doesn't)
>

>Const product_column As Integer = 0
>Const productname_column As Integer = 1
>Const units_instock_column As Integer = 2
>Const units_onorder_column As Integer = 3
>Const reorderlevel_column As Integer = 4
>Const discontinued_column As Integer = 5
>
>With ListView1.Items
>  .Add(myreader.Item("productid"))
>  curentrow = .Count - 1
>  .Item(curentrow).SubItems.Add(myreader.Item("productname"))
>  .Item(curentrow).SubItems.Add(myreader.Item("unitsinstock"))
>  .Item(curentrow).SubItems.Add(myreader.Item("unitsonorder"))
>  .Item(curentrow).SubItems.Add(myreader.Item("reorderlevel"))
>  .Item(curentrow).SubItems.Add(myreader.Item("discontinued"))
>  If myreader.GetInt16(units_instock_column) <= myreader.GetInt16(reorderlevel_column) And _
>	myreader.GetInt16(units_onorder_column) = 0 And _
>	myreader.GetBoolean(discontinued_column) = False Then
>    .Item(curentrow).SubItems.Item(units_instock_column).ForeColor = Drawing.Color.White
>    .Item(curentrow).SubItems.Item(units_instock_column).BackColor = Drawing.Color.DarkRed
>  Else
>    .Item(curentrow).SubItems.Item(units_instock_column).ForeColor = Drawing.Color.DarkOliveGreen
>    .Item(curentrow).SubItems.Item(units_instock_column).BackColor = Drawing.Color.DarkRed
>  End If
>End With
>

>
>The listbox loads but I see no color changes. Am I color blind?
>
>Thanks
>
>Glenn