如何对 3 checkedlistbox 中选中的项目执行 for 循环

Question

我做了一份关于在 company.i 中获取员工输出的报告，为 that.but 编写了一个代码，它只显示第一个项目 checked.how 以在其中实现循环。

   Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    For i = 0 To Employee_Bank_dtl.CheckedListBox1.Items.Count - 1 Step i + 1
        If Employee_Bank_dtl.CheckedListBox1.GetItemCheckState(i) = CheckState.Checked Then
            Dim xx As String = (CType(Employee_Bank_dtl.CheckedListBox1.Items(i), DataRowView))("VC_BRNAME")
            For j = 0 To Employee_Bank_dtl.CheckedListBox2.Items.Count - 1 Step j + 1
                If Employee_Bank_dtl.CheckedListBox2.GetItemCheckState(j) = CheckState.Checked Then
                    Dim yy As String = (CType(Employee_Bank_dtl.CheckedListBox2.Items(j), DataRowView))("vc_empstatus")
                    For k = 0 To Employee_Bank_dtl.CheckedListBox3.Items.Count - 1 Step k + 1
                        If Employee_Bank_dtl.CheckedListBox3.GetItemCheckState(k) = CheckState.Checked Then
                            Dim zz As String = (CType(Employee_Bank_dtl.CheckedListBox3.Items(k), DataRowView))("vc_value")
                            Dim str = "xxxxxxxxxxxxxx"
                            conobj.readdata(str)
                            conobj._adpt.Fill(Me.DataSet10.BRANCH_MAST)
                            Me.ReportViewer1.RefreshReport()
                        End If
                    Next
                End If
            Next
        End If
    Next i

Answer 1

您应该像这样递增项目集合，而不是您这样做的方式。您应该能够找到您正在寻找的属性。在内部循环中设置一个断点并右键单击项目上的快速监视，您将看到该项目的所有属性，其中将包含您要查找的内容。

    For Each item In CheckedListBox1.Items
        'set the item property to the right property that holds "VC_BRNAME"
        If item.property = "VC_BRNAME" Then

        End If
        If item.checkstate.checked = True Then

        End If

    Next

Answer 2

这是我的错误，在第 3 次循环中将 k + 1 替换为 +1 会得到正确答案

如何对 3 checkedlistbox 中选中的项目执行 for 循环

how to execute for loop for items checked in 3 checkedlistbox

vb.net