VB.net For 循环从多个控件(复选框列表项)捕获数据

Question

我的页面上有两个CheckBoxList控件（chkListVideoMedia和chkListAudioMedia），我想从中捕获信息并将记录插入数据库。我让它适用于其中一个控件，我只需要帮助修改下面的代码以包含第二个 CBL

Dim values As New ArrayList()
For counter As Integer = 0 To chkListVideoMedia.Items.Count - 1
    If chkListVideoMedia.Items(counter).Selected Then
        MyTextBox.Text = chkListVideoMedia.Items(counter).Value
        values.Add(newId)
    End If
Next
If values.Count > 0 Then
  For item As Integer = 0 To values.Count - 1
    If item = 0 Then
      MyMedia1.Text = values(item).ToString
    End If
    If item = 1 Then
      MyMedia2.Text = values(item).ToString
    End If
    If item = 2 Then
      MyMedia3.Text = values(item).ToString
    End If
    If item = 3 Then
      MyMedia4.Text = values(item).ToString
    End If
  Next
End If

谢谢詹姆斯

Answer 1

您可以找出哪个集合的物品最多，然后检查以确保计数不大于每个集合中的最大项目数。像这样的东西。

Dim values As New ArrayList()
Dim counter As Integer
If chkListVideoMedia.Items.Count > chkListAudioMedia.Items.Count Then
    counter = chkListVideoMedia.Items.Count - 1
Else
    counter = chkListAudioMedia.Items.Count - 1
End If
For x = 0 To counter
    If Not (counter > chkListVideoMedia.Items.Count - 1) Then
        'Do your work here
    End If
    If Not (counter > chkListAudioMedia.Items.Count - 1) Then
        'Do your work here
    End If
Next