如何为3 checkedlistbox中检查的项目执行循环(how to execute for loop for items checked in 3 checkedlistbox)
我做了一个报告,用于获取公司员工的输出。我为此制作了一个代码。但它只显示了检查的第一个项目。如何在此处表示循环。
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 ii made a report for taking output of employees in a company.i made a code for that.but it only show the first items checked.how to impliment for loop in this.
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最满意答案
你应该通过这样的项目集合来增加,而不是像你那样。 您应该能够找到您要查找的属性。 在内部循环中设置断点并右键单击项目上的快速计划,您将看到该项目的所有属性,其中包含您要查找的内容。
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 NextIts my mistake replacing k + 1 to +1 in the 3rd loop will got the right answer
更多推荐
发布评论