停止单选按钮更改

Question

我有调用功能的单选按钮列表。

如果该函数返回true，那么我想更改该值。

但是，如果该函数返回false，那么我不想更改该值并保留原始选择值。

目前它即使在语句返回false时也会更改该值。

有什么建议吗？

ASP页

<asp:RadioButtonList ID="rblType" runat="server" AutoPostBack="True" 
    DataSourceID="SqlData" DataTextField="Type" 
    DataValueField="TypeID"> 
</asp:RadioButtonList> 

VB文件

Private selectionvalue As Integer 

Protected Sub rblType_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles rblType.SelectedIndexChanged 

    Dim CheckListValidation As Boolean = CheckListBox() 

    If CheckListValidation = True Then 
      selectionvalue = rblType.SelectedItem.Value 
     Else 
      rblType.SelectedItem.Value = selectionvalue 
    End If 

End Sub 

Function CheckListBox() As Boolean 

    If lstbox.Items.Count <> "0" Then 
     If MsgBox("Are you sure you want to change option?", MsgBoxStyle.YesNo, " Change Type") = MsgBoxResult.Yes Then 
      Return True 
     Else 
      Return False 
     End If 
    Else 
     Return True 
    End If 

End Function 

Answer 1

的问题是在执行rblType_SelectedIndexChanged，所选择的项目已经改变，RadioButtonList不 “记住”先前选定的值。您需要在回发之间保留之前选定的值以实现此目的。

我会建议使用ViewState。创建代码隐藏的属性来表示的ViewState值：

Private Property PreviousSelectedValue() As String 
    Get 
     If (ViewState("PreviousSelectedValue") Is Nothing) Then 
      Return String.Empty 
     Else 
      Return ViewState("PreviousSelectedValue").ToString() 
     End If 
    End Get 
    Set(ByVal value As String) 
     ViewState("PreviousSelectedValue") = value 
    End Set 
End Property 

和rblType_SelectedIndexChanged：

Protected Sub rblType_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rblType.SelectedIndexChanged 

    Dim CheckListValidation As Boolean = CheckListBox() 

    If CheckListValidation = True Then 
     'save the currently selected value to ViewState 
     Me.PreviousSelectedValue = rblType.SelectedValue 
    Else 
     'get the previously selected value from ViewState 
     'and change the selected radio button back to the previously selected value 
     If (Me.PreviousSelectedValue = String.Empty) Then 
      rblType.ClearSelection() 
     Else 
      rblType.SelectedValue = Me.PreviousSelectedValue 
     End If 
    End If 

End Sub