主题：去除多选内容

我采用在窗口中放多个复选框的方式进行多选输入，但有一个问题，输入完第一个后，输入第二个时，前面的多选框中的钩还在，如何实现输入下一个是把前一个选择的钩取消呢？

1、改为单选框
2、窗口全局事件CheckedChanged事件，把复选框都放入一个panel里面

1、老师，按您的第2条做的话，我的多选变成单选了。

2、我的本意是保持多选，但在填完一条记录，填下一条时记录时，把上一条选的钩去掉重新选，现在是比如：输入第一条记录时选了3个人，等输入每二条记录时，选择的这三个人前面的钩仍然在，要取掉钩重新选。我的想法是在后面的记录时，自动把前面选的钩去掉。

 

1楼没有说清楚哦。Forms("窗口1").Controls("checkbox2").Checked = False

老师，代码请给改改，谢谢。

 

If Forms("出差人").opened Then
    If e.Sender.checked = True
        For Each c As WinForm.Control In e.Form.Controls("panel1").Children
            If c.Name <> e.Sender.name AndAlso Typeof c Is WinForm.CheckBox Then
                Dim t As WinForm.CheckBox= c
                Forms("出差人").Controls("checkbox&"t").Checked = False
            End If
        Next
    End If
End If

If Forms("出差人").opened Then
        For Each c As WinForm.Control In Forms("出差人").Controls("panel1").Children
            If Typeof c Is WinForm.CheckBox Then
                Dim t As WinForm.CheckBox= c
                t.Checked = False
            End If
        Next
End If

老师您好，这段代码其它正常，但当一个人都不选时出错，请问能不能改一改呢？

 

Dim s As  String
For Each ctl As WinForm.Control In e.Form.Controls '遍历所有控件
    If TypeOf ctl Is WinForm.CheckBox Then '如果此控件是
        Dim rdo As WinForm.CheckBox = ctl
        If rdo.Checked Then '如果已经选中
            s &= rdo.Text & "、"
        End If
    End If
Next
e.Form.DropDownBox.Value = s.trim("、") '将此单选框的文本赋值给下拉组合框
e.Form.DropDownBox.CloseDropdown() '关闭下拉窗口

Dim s As  String

老师真厉害，谢谢！