Dim x As DataGridItem Dim i As Integer = 0 For Each x In DataGrid1.Items If CType(x.FindControl("che"), CheckBox).Checked = True Then i = i + 1 End If Next If i >= 2 Then Response.Write("<script>alert('只能选一个');</script>") Exit For Exit Sub Response.End() Else Response.Write("sdfsdf") End If
Dim i As Integer = 0
For Each x In DataGrid1.Items
If CType(x.FindControl("che"), CheckBox).Checked = True Then
i = i + 1
End If
Next
If i >= 2 Then
Response.Write("<script>alert('只能选一个');</script>")
Exit For
Exit Sub
Response.End()
Else
Response.Write("sdfsdf")
End If