VB.NET后台设置RadioButton选中状态不显示圆点问题求助

在VB.NET后台代码中设置ListView内RadioButton的选中状态时，页面上的单选按钮未显示选中圆点。已确认能获取到正确的选项行/控件，但状态无法同步到前端。

相关代码如下：

获取RadioButton的函数 #

Private Function GetRadioButton() As Object
    Dim rObject As Object = Nothing
    Dim rbtnPTypes As RadioButton
    Try
        For Each i As ListViewDataItem In lsvAvailable.Items
            If SessionVars.TYPE_ID = lsvAvailable.DataKeys(i.DataItemIndex).Value.ToString() Then
                rbtnTypes = CType(i.FindControl("rbtnType"), RadioButton)
               rObject = rbtnTypes
            End If
        Next
    Catch ex As Exception
    End Try

    Return rObject
End Function

调用方式（在Page_Load中） #

If Not IsPostBack Then
        If Not SessionVars.CARD_NUM Is Nothing Then
            txtCardNum.Text = SessionVars.CARD_NUM
            txtBirthDate.Text = SessionVars.DOB                    
            rObject = GetRadioButton()
            rbtn_CheckedChanged(rObject, e)                    
        End If
    End If

RadioButton的CheckedChanged事件函数 #

Protected Sub rbtn_CheckedChanged(sender As Object, e As EventArgs)

  For Each i As ListViewDataItem In lsvAvailable.Items
        rbtnTypes = CType(i.FindControl("rbtn"), RadioButton)
        rbtnTypes.Checked = False
  Next
    rbtnTypes = CType(sender, RadioButton)
    rbtnTypes.Checked = True
End Sub

• 控件ID不一致：CheckedChanged事件循环中查找的控件ID是rbtn，但获取函数中使用的是rbtnType，导致循环中无法正确找到目标RadioButton，重置操作和选中逻辑完全失效。
• 错误的状态设置方式：直接手动调用CheckedChanged事件方法来设置选中状态不合理。该事件方法是为用户交互触发设计的，手动调用时控件状态不会自动同步到前端渲染，不符合ASP.NET页面生命周期规则。
• 生命周期时机问题：如果ListView的DataBind操作在设置选中状态之后执行，数据绑定会重置所有控件状态，导致之前设置的选中效果被覆盖。

1. 修正控件ID：将CheckedChanged事件中的i.FindControl("rbtn")改为i.FindControl("rbtnType")，确保和RadioButton实际ID一致。
2. 直接设置选中状态，避免手动调用事件：在Page_Load的Not IsPostBack块中，找到目标RadioButton后直接设置Checked=True，同时重置其他RadioButton状态，无需调用事件方法。示例代码：

If Not IsPostBack Then
    If Not SessionVars.CARD_NUM Is Nothing Then
        txtCardNum.Text = SessionVars.CARD_NUM
        txtBirthDate.Text = SessionVars.DOB

        ' 先重置所有RadioButton状态
        For Each i As ListViewDataItem In lsvAvailable.Items
            Dim rbtn As RadioButton = CType(i.FindControl("rbtnType"), RadioButton)
            rbtn.Checked = False
        Next

        ' 找到目标并设置选中
        For Each i As ListViewDataItem In lsvAvailable.Items
            If SessionVars.TYPE_ID = lsvAvailable.DataKeys(i.DataItemIndex).Value.ToString() Then
                Dim targetBtn As RadioButton = CType(i.FindControl("rbtnType"), RadioButton)
                targetBtn.Checked = True
                Exit For ' 找到后退出循环，提升效率
            End If
        Next
    End If
End If

3. 确保执行顺序：如果ListView需要数据绑定，务必先完成DataBind操作，再执行上述选中状态设置逻辑，避免数据绑定覆盖控件状态。
4. 优化异常处理：移除空的Catch块，至少记录异常信息，方便排查后续问题。

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