繁体   English   中英

将值添加到选项框和复选框

Add the values to the Option box & Check box

提示:本站收集StackOverFlow近2千万问答,支持中英文搜索,鼠标放在语句上弹窗显示对应的参考中文或英文, 本站还提供   中文繁体   英文版本   中英对照 版本,有任何建议请联系yoyou2525@163.com。

我可以知道,如何使选项框和复选框在列表框中被选中? 比方说,如果数据是肯定的,那么选项框将自动被选中,如果选择 Whatsapp 和电子邮件,它将在 WhatsApp 和电子邮件中自动选中另一个选项框。

Method 的列从 C9 列开始,而 Participation 列在 D9 列。

供参考,

Emp 2 - 是 Emp 3 - 否 Emp 8 - Whatsapp Emp 9 - 电话 Emp 10 - Facebook Emp 11 -Email Emp 12 - SMS

在此处输入图片说明

这是我已经尝试过的编码

Private Sub lstEmployee_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

'dim the variables
Dim i As Integer
On Error Resume Next

'find the selected list item
i = Me.lstEmployee.ListIndex

'add the values to the text boxes
Dim methodsOfCommunication() As String

Me.Emp1.Value = Me.lstEmployee.Column(0, i)
Select Case Me.lstEmployee.Column(2, i)
    Case "Yes"
        Emp2.Value = True
        Emp3.Value = False
    Case "No"
        Emp2.Value = False
        Emp3.Value = True
End Select

' Reset Methods of Communication checkboxes.
Emp8.Value = False
Emp9.Value = False
Emp10.Value = False
Emp11.Value = False
Emp12.Value = False
' Set Methods of Communication checkboxes.
methodsOfCommunication = Split(Me.lstEmployee.Column(1, i), ", ")
For i = LBound(methodsOfCommunication, 1) To UBound(methodsOfCommunication, 1)
    Select Case methodsOfCommunication(i)
        Case "Whatsapp"
            Emp8.Value = True
        Case "Phone Call"
            Emp9.Value = True
        Case "Facebook"
            Emp10.Value = True
        Case "Email"
            Emp11.Value = True
        Case "SMS"
            Emp12.Value = True
    End Select
Next

Me.Emp4.Value = Me.lstEmployee.Column(3, i)
Me.Emp5.Value = Me.lstEmployee.Column(4, i)
Me.Emp6.Value = Me.lstEmployee.Column(5, i)
Me.Emp7.Value = Me.lstEmployee.Column(6, i)
Me.Emp13.Value = Me.lstEmployee.Column(7, i)
Me.Emp14.Value = Me.lstEmployee.Column(8, i)
Me.Emp15.Value = Me.lstEmployee.Column(9, i)

On Error GoTo 0

End Sub
1 个回复
Dim methodsOfCommunication() As String
Dim i As Integer

Me.Emp1.Value = Me.lstEmployee.Column(0, i)
Select Case Me.lstEmployee.Column(2, i)
    Case "Yes"
        Me.Emp2.Value = True
        Me.Emp3.Value = False
    Case "No"
        Me.Emp2.Value = False
        Me.Emp3.Value = True
End Select

' Reset Methods of Communication checkboxes.
Me.Emp8.Value = False
Me.Emp9.Value = False
Me.Emp10.Value = False
Me.Emp11.Value = False
Me.Emp12.Value = False
' Set Methods of Communication checkboxes.
methodsOfCommunication = Split(Me.lstEmployee.Column(1, i), ", ")
For i = LBound(methodsOfCommunication, 1) To UBound(methodsOfCommunication, 1)
    Select Case methodsOfCommunication(i)
        Case "Whatsapp"
            Me.Emp8.Value = True
        Case "Phone Call"
            Me.Emp9.Value = True
        Case "Facebook"
            Me.Emp10.Value = True
        Case "Email"
            Me.Emp11.Value = True
        Case "SMS"
            Me.Emp12.Value = True
    End Select
Next
1 将复选框添加到selectize js中的选项

是否可以向选项渲染器添加复选框,以便用户可以通过单击复选框来选择和取消选择项目。 我能够通过添加来添加复选框 到选项渲染器。 但我不知道如何处理点击功能并将选定的值添加到标题中。 我试过 remove_button 插件。 但这不是我要找的。 提前致谢 ...

2 将其他选项添加到Pardot中的复选框

我想知道是否可以在pardot形式的复选框中添加“其他”选项。 用户必须能够键入他们想要的任何其他选项 示例:我对以下内容感兴趣: 1)篮球 2)足球 3)高尔夫 4)<用于“其他”选项的文本框> 此功能是内置在pardot中还是在以后我会使用一 ...

4 将复选框添加到组合框

我想在组合框内添加复选框,然后在我的sql查询中使用复选框的值。 另外,我需要将检查的值附加到数组,然后在我的sql查询中使用该数组的元素。 我该怎么办? ...

6 如何将复选框添加到组合框?

我想创建一个具有复选框的ComboBox作为使用Codename One的子级。 我没有使用UIBuilder 为了实现可重用性,我创建了一个包含三个复选框的容器: 这已经有效。 由于屏幕上的空间过多,我现在尝试将CheckBoxContainer添加到组合框,如下所示 ...

8 将项目作为复选框添加到组合框

你好,我正在使用 XAML/WPF 创建一个组合框,然后使用 XML 来填充它 使用下面的建议,这是我更新的代码,现在可以使用了!! 这是我使用下面给出的建议的 XAML 这是我的 XML <?xml version="1.0" encoding="utf-8" ?> <Co ...

9 将复选框控件添加到列表框

我是.NET环境的新手,只是一名学生。 我正在从事用户管理工作。 我想为一个用户分配多个角色。 为此,我创建了列表框,其中包含数据库中的角色列表。 我只需要一个每个项目的复选框。 请建议如何为每个项目添加一个复选框。 我试过了 但它没有帮助。 我做谷歌但没有结果:( ...

暂无
暂无

声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

 
粤ICP备18138465号  © 2020-2022 STACKOOM.COM