asp.net/vb-更新标签文本

我在更新标签时遇到问题，这是我使用的代码

Private Sub UpdateLabels(ByVal start As Date, ByVal [end] As Date, ByVal value As Double)

    Dim da As New SqlDataAdapter("SELECT * FROM [event] WHERE NOT (([eventend] <= @start) OR ([eventstart] >= @end))", ConfigurationManager.ConnectionStrings("daypilot").ConnectionString)
    da.SelectCommand.Parameters.AddWithValue("start", start)
    da.SelectCommand.Parameters.AddWithValue("end", [end])
    da.SelectCommand.Parameters.AddWithValue("value", value)
    Dim dt As New DataTable()
    da.Fill(dt)

    Dim original As DateTime = DateTime.Now ' The date you want to get the last day of the month for
    Dim lastOfMonth As DateTime = original.Date.AddDays(-(original.Day - 1)).AddMonths(1).AddDays(-1)

    If dt.Rows.Count > 0 Then
        For i As Integer = 0 To dt.Rows.Count - 1
            Dim startdate As Date = dt.Rows(i).Item("eventstart").ToString
            Dim enddate As Date = dt.Rows(i).Item("eventend").ToString
            Dim today As Date = Now()
            If startdate < today And enddate > today Then
                Dim add = dt.Rows(i).Item("value").ToString
                value = value + add
            ElseIf enddate <= lastOfMonth Then
                Dim add = dt.Rows(i).Item("value").ToString
                value = value + add
            End If
        Next
    End If

    If IsPostBack() Then

        LabelFMI.Text = value

        If LabelFMI.Text >= 800 = True Then
            LabelFMI.ForeColor = System.Drawing.Color.Red
        Else
            LabelFMI.ForeColor = System.Drawing.Color.Green
        End If

        If LabelSFA.Text >= 1000 = True Then
            LabelSFA.ForeColor = System.Drawing.Color.Red
        Else
            LabelSFA.ForeColor = System.Drawing.Color.Green
        End If
    End If

End Sub

它是default.aspx中的asp:Label declard

---

基本上，每当我使用的日历发生更改时，我都会尝试进行此更新-到目前为止，它工作正常-但是，在我关闭网页并重新打开之前，网页上显示的标签从未更新-如何在每次更改时更新此内容？

在您的公共默认类中：

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    If Not Page.IsPostBack Then
        'Put here what you want to be made once
    End If

    'Put here what you what to be repeted at every postback.

End Sub

---

@Andy按F5键是否可以在不关闭/重新打开浏览器的情况下修复颜色？不，页面将加载thr文本，我将更改一些应该更改文本标签和颜色的内容，刷新时不会发生任何事情取消，是的，它有。。事实上刚刚将代码移出更新子项-是否仍有更新它而不必刷新？