Calendar有資料的日期標示其他顏色


Dim year, month, day As Integer
    Protected Sub ca1_DayRender(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DayRenderEventArgs) Handles ca1.DayRender
        year = e.Day.Date.Year
        month = e.Day.Date.Month
        day = e.Day.Date.Day
        sds_count.SelectParameters("year").DefaultValue = year
        sds_count.SelectParameters("month").DefaultValue = month
        sds_count.SelectParameters("day").DefaultValue = day
        Dim dv As Data.DataView = sds_count.Select(DataSourceSelectArguments.Empty)
        If dv.Count <> 0 Then
            e.Cell.ForeColor = Drawing.Color.Peru
            'Response.Write(dv.Table.Rows(0)(0))
        End If