-1

我想清除此表格中的数据。你能告诉我这段代码有什么问题吗?

 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    Dim ctrl As Control
    For Each ctrl In Me.Controls
        If TypeOf ctrl Is RadioButton Then
            RadioButton2.Checked = False
        End If
    Next
End Sub
4

2 回答 2

0

尝试这个:

If TypeOf ctrl Is RadioButton Then
     ctrl.Checked = False
End If

在您当前的代码中,您正在循环所有控件,但仅更新 RadioButton2 的 Checked 属性。

于 2013-09-22T12:00:41.923 回答
0

下面的代码适用于我:

For Each ctrl As Control In Me.Controls
    If TypeOf ctrl Is RadioButton Then
    'reset the checked property to ALL your radioButtons     
    DirectCast(ctrl, RadioButton).Checked = False
        End If
    Next

您将循环访问表单中的所有控件。

于 2016-03-16T09:02:47.570 回答