Dim tempString as String Dim iValue as Integer If e.Item.ItemType = ListItemType.Item OrElse e.Item.ItemType = ListItemType.AlternatingItem Then tempString = DataBinder.Eval(e.Item.DataItem, "T0600").ToString() iValue = Integer.Parse(tempString) If iValue > 0 Then e.Item.Cells(1).BackColor = Color.Red Else e.Item.Cells(1).BackColor = Color.LightGreen End If tempString = DataBinder.Eval(e.Item.DataItem, "T0615").ToString() iValue = Integer.Parse(tempString) If iValue > 0 Then e.Item.Cells(2).BackColor = Color.Red Else e.Item.Cells(2).BackColor = Color.LightGreen End If tempString = DataBinder.Eval(e.Item.DataItem, "T0630").ToString() iValue = Integer.Parse(tempString) If iValue > 0 Then e.Item.Cells(3).BackColor = Color.Red Else e.Item.Cells(3).BackColor = Color.LightGreen End If tempString = DataBinder.Eval(e.Item.DataItem, "T0645").ToString() iValue = Integer.Parse(tempString) If iValue > 0 Then e.Item.Cells(4).BackColor = Color.Red Else e.Item.Cells(4).BackColor = Color.LightGreen End If end if