0

ページに 2 つの CheckBoxList コントロール (chkListVideoMediaとchkListAudioMedia) があり、そこから情報を取得してデータベースにレコードを挿入します。コントロールの 1 つで動作しています。2 番目の 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

ありがとう、ジェームズ

4

1 に答える 1

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
于 2012-09-30T22:55:40.560 に答える