'根据不同的在职状态,设置字体颜色
Private Sub GridUser_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles GridUser.ItemDataBound
Dim itemType As ListItemType
itemType = CType(e.Item.ItemType, ListItemType)
If (itemType <> ListItemType.Header) And (itemType <> ListItemType.Footer) And (itemType <> ListItemType.Separator) Then
If e.Item.Cells(8).Text = "在职" Then
e.Item.ForeColor = Color.Black
Else
e.Item.ForeColor = Color.Red
End If
End If