Private Sub dtGoals_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataListItemEventArgs) Handles dtGoals.ItemDataBound
If e.Item.ItemType = ListItemType.AlternatingItem Or e.Item.ItemType = ListItemType.Item Then
'Initialize all the controls for the item
Dim ddRating As DropDownList = CType(e.Item.FindControl("ddRating"), DropDownList)
Dim gd As New HRReviewBL.StaffGoals
ddRating.DataSource = gd.LoadRatings
ddRating.DataValueField = "ratingID"
ddRating.DataTextField = "rating"
ddRating.DataBind()
ddRating.Items.Insert(0, New ListItem("< Select >", 0))
ddRating.Dispose()
End If
End Sub