Visual Basic Copy CodeProtected Sub DataList1_ItemCreated(ByVal sender As Object, _
        ByVal e As EventArgs)
   Select Case e.Item.ItemType
      Case ListItemType.Item
         e.Item.BackColor = _
             System.Drawing.Color.LightGoldenrodYellow
      Case ListItemType.AlternatingItem
         e.Item.BackColor = System.Drawing.Color.DarkGoldenrod
      Case ListItemType.SelectedItem
         e.Item.BackColor = System.Drawing.Color.Yellow
      Case Else
         ' Add code here to hand the header, footer, and
         ' separator templates.
   End Select
End Sub

Visual Basic Copy CodeProtected Sub DataList1_ItemDataBound(ByVal sender As Object, _
        ByVal e As DataListItemEventArgs)
    If e.Item.ItemType = ListItemType.Item Or _
            e.Item.ItemType = ListItemType.AlternatingItem Then
        Dim drv As System.Data.DataRowView = _
            CType(e.Item.DataItem, System.Data.DataRowView)
        Dim quantity As Integer = _
            Integer.Parse(drv.Row("Quantity").ToString())
        If (quantity < 10) Then
            e.Item.BackColor = System.Drawing.Color.Red
        End If
    End If
End Sub