ASP.NET(VB.NET)日历控件动态按钮点击事件无法触发求助

这个问题的核心原因是动态添加的控件需要在页面生命周期的早期阶段（比如Page_Init）重新创建并添加到控件树，而你当前是在DayRender事件中创建按钮——这个事件是在页面渲染阶段执行的，回发时ASP.NET不会重新执行DayRender来重建按钮，导致控件树中找不到对应的按钮实例，自然无法触发点击事件。

下面是具体的解决方案，分步骤说明并附上修改后的代码：

1. 把按钮重建逻辑移到Page_Init事件 #

Page_Init是页面生命周期的早期阶段，此时ASP.NET还未加载ViewState，在这里重建动态控件能确保控件树和事件绑定在回发时正常工作。我们需要先在这里创建按钮并添加到对应的日历单元格，同时绑定点击事件。

Protected Sub Page_Init(sender As Object, e As EventArgs) Handles Me.Init
    ' 确保回发时也能获取到事件数据，所以dsHearings不能只在首次加载时绑定
    If Not dsHearings Is Nothing Then
        For Each dr As DataRow In dsHearings.Tables(0).Rows
            Dim targetDate As DateTime = CType(dr(6), DateTime)
            ' 根据日期找到Calendar对应的单元格
            Dim dayCell As TableCell = FindCalendarDayCell(Calendar1, targetDate)
            
            If dayCell IsNot Nothing Then
                Dim btn As New Button
                ' 保持ID生成规则和之前完全一致，确保回发时匹配
                btn.ID = "btnHearings" & dr(9).ToString
                btn.UseSubmitBehavior = True
                ' 绑定点击事件
                AddHandler btn.Click, AddressOf Me.HearingButton_Click
                ' 将按钮添加到单元格
                dayCell.Controls.Add(btn)
            End If
        Next
    End If
End Sub

' 辅助方法：根据目标日期查找Calendar对应的单元格
Private Function FindCalendarDayCell(calendar As Calendar, targetDate As DateTime) As TableCell
    ' Calendar的控件结构是Table -> TableRows -> TableCells，遍历找到对应日期的单元格
    For Each row As TableRow In calendar.Controls(0).Controls
        For Each cell As TableCell In row.Controls
            ' 日期单元格内第一个控件是显示日期数字的Label
            If cell.Controls.Count > 0 AndAlso TypeOf cell.Controls(0) Is Label Then
                Dim dayLabel As Label = DirectCast(cell.Controls(0), Label)
                Dim dayNum As Integer
                If Integer.TryParse(dayLabel.Text, dayNum) Then
                    Dim cellDate As New DateTime(calendar.VisibleDate.Year, calendar.VisibleDate.Month, dayNum)
                    If cellDate.Date = targetDate.Date Then
                        Return cell
                    End If
                End If
            End If
        Next
    Next
    Return Nothing
End Function

2. 修改DayRender事件，只负责设置按钮的显示属性 #

DayRender事件仍然可以用来美化单元格和按钮的样式、文本，因为它能方便地访问每个日期的单元格对象。我们只需要在这里找到之前在Page_Init中创建的按钮，设置它的文本、样式等属性即可：

Protected Sub Calendar1_DayRender(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DayRenderEventArgs) Handles Calendar1.DayRender
    If Not dsHearings Is Nothing Then
        For Each dr As DataRow In dsHearings.Tables(0).Rows
            Dim targetDate As DateTime = CType(dr(6), DateTime)
            If targetDate = e.Day.Date Then
                ' 设置单元格背景色
                e.Cell.BackColor = System.Drawing.Color.LightGoldenrodYellow
                
                ' 找到之前创建的按钮
                Dim btn As Button = DirectCast(e.Cell.FindControl("btnHearings" & dr(9).ToString), Button)
                If btn IsNot Nothing Then
                    ' 设置按钮文本、样式和Tooltip
                    btn.Text = Left(dr(7).ToString, 5) & "-" & "噩賱爻丞 賮賷 賲賱賮" & dr(1) & " " & dr(2) & " (" & dr(8) & ")"
                    btn.CssClass = "CalendarHearingEvent"
                    btn.BackColor = Drawing.Color.Red
                    btn.ToolTip = "噩賱爻丞 賮賷 賲賱賮" & dr(1) & " " & dr(2) & " (" & dr(8) & ")"
                    
                    ' 添加换行标签，让按钮和日期数字分开
                    Dim lbl As New Label
                    lbl.Text = "<br>"
                    e.Cell.Controls.AddAt(0, lbl)
                End If
            End If
        Next
    End If
End Sub

3. 关键注意事项 #

• 确保dsHearings在回发时也能加载：如果dsHearings是从数据库获取的，不要把数据绑定放在If Not IsPostBack块里，否则回发时dsHearings会是Nothing，无法重建按钮。
• 保持ID完全一致：按钮的ID生成规则必须和首次创建时完全相同，这样ASP.NET才能在回发时匹配到对应的控件实例，触发事件。
• 事件绑定时机：必须在控件添加到控件树之前或同时绑定事件，否则事件不会被正确注册。

这样修改后，动态按钮的点击事件应该就能正常触发了。

内容的提问来源于stack exchange，提问作者Masarwa