p; Else
If ChinaRingCkBox(index - 2).Checked Then
ChinaRingCk = True
End If
Do While i < index - 2
If ChinaRingCkBox(i).Checked Then
ChinaRingCk = False
End If
i = i + 1
Loop
End If
If Not ChinaRingCk Then
ChinaRingCkBox(index - 1).Checked = Not ChinaRingCkBox(index - 1).Checked
''可以在这里加一个提示,根据条件提示不能套入,或不能拿出该环。
End If
End Sub
End Class