Private Sub DataGrid1_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles DataGrid1.ItemDataBound
If e.Item.ItemIndex > 0 Then
Dim drv As DataRowView
drv = e.Item.DataItem
Dim thisdate As DateTime
thisdate = drv("add_time")
If DateTime.Now.ToString("yyyy-MM-dd") = thisdate.ToString("yyyy-MM-dd") Then
e.Item.Cells(1).ForeColor = Color.Red
End If
End If
End Sub
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
Try
Dim myconn As SqlConnection = New SqlConnection(ConfigurationSettings.AppSettings("conn"))
Dim mycmd As String = "select id,Project_name,add_time from bxgg_info ORDER BY add_time DESC"
Dim dap As SqlDataAdapter = New SqlDataAdapter(mycmd, myconn)
Dim dst As DataSet
dst = New DataSet
dap.Fill(dst)
DataGrid1.DataSource = dst.Tables(0).DefaultView
DataGrid1.DataBind()
Private Sub DataGrid1_ItemDataBound(ByVal sender As System.Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles DataGrid1.ItemDataBound
If e.Item.ItemIndex > 0 Then
Dim drv As DataRowView
drv = e.Item.DataItem
If DateTime.Now.ToString("yyyy-MM-dd") = drv("日期字段") Then
e.Item.Cells(1).ForeColor = Color.Red