C 使用DevExpress vb.net分配中的复选框列表（&A）；估计

您好，我的代码示例是：

/* bdEmpresa（BindingSource） 包含：

selet idEmpresa，名称，来自Empresa的Acceso

结果

1，Empresa1，对

2，Empresa2，假

3，Empresa2，对

*/

clEmpresas.DataSource=bdEmpresa

clEmpresas.DisplayMember=？（名称）

---

clEmpresas.ValueMember=？（Acceso）

这是我们将使用的代码

        With clEmpresas.Properties
            If .DataSource IsNot Nothing Then .DataSource = Nothing
            .DataSource =  bdEmpresa 
            If .DataSource.rows.count = 0 Then Return Nothing 'no data to load
            'get the names from the dataset, don't expect them to be specific names
            .ValueMember = .DataSource.rows(0).Table.Columns(0).ColumnName
            .DisplayMember = .DataSource.rows(0).Table.Columns(1).ColumnName

            'Set the selected items, comma separated list of ids
            If selectedIds <> "" Then
                For i As Integer = 0 To .ItemCount - 1
                    If Array.IndexOf(selectedIds.Split(","), .GetItemValue(i).ToString) >= 0 Then
                        .SetItemChecked(i, True)
                    End If
                Next
            End If

        End With

与clEmpresas.Properties
如果.DataSource不是Nothing，那么.DataSource=Nothing
.DataSource=bdEmpresa
如果.DataSource.rows.count=0，则不返回任何“无需加载的数据”
'从数据集中获取名称，不要期望它们是特定的名称
.ValueMember=.DataSource.rows（0）.Table.Columns（0）.ColumnName
.DisplayMember=.DataSource.rows（0）.Table.Columns（1）.ColumnName
'设置选定项目，以逗号分隔的ID列表
如果选择了EDIDS“”，则
对于i As Integer=0到.ItemCount-1
如果Array.IndexOf（selectedds.Split（“，”）.GetItemValue（i）.ToString）>=0，则
.SetItemChecked（i，真）
如果结束
下一个
如果结束
以

您可以使用该属性让控件自动检查指定数据源中的选择值： e、 g

之后，如果用户更改控件中的选择，则可以使用该属性获取选定项。请参见以下示例：

Private Sub SimpleButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SimpleButton1.Click
        For Each item As DevExpress.XtraEditors.Controls.CheckedListBoxItem In CheckedListBoxControl1.CheckedItems
            MessageBox.Show(item.Value.ToString())
        Next
    End Sub

参考这些：

Private Sub SimpleButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SimpleButton1.Click
        For Each item As DevExpress.XtraEditors.Controls.CheckedListBoxItem In CheckedListBoxControl1.CheckedItems
            MessageBox.Show(item.Value.ToString())
        Next
    End Sub