5

他のドロップダウン リストの値に基づいて、ドロップダウン リストのリスト項目の値を変更しようとしています。drpAdult のリスト値は 0 ～ 9 の範囲であり、drpInfant のリスト値は 0 ～ (選択された drpAdult の値) の範囲です。

たとえば、drpAdult ドロップダウンで 5 を選択すると、drpInfant のリスト項目値の範囲は 0 ～ 5 になります。

以下のコードを書きましたが、drpAdult_SelectedIndexChanged イベントに挿入しようとしている drpInfant ドロップダウンに値が入力されていません。

Protected Sub drpAdult_SelectedIndexChanged(ByVal sender As Object, 
 ByVal e As EventArgs) Handles drpAdult.SelectedIndexChanged  

    Dim count As Integer    
    count = drpAdult.Items.Count
    Dim i As Integer
    i = 0
     While count > 0
        i = i + 1

        drpInfant.Items.Add(New ListItem(i, i))
        count = count - 1

    End While
End Sub

この問題の原因は何ですか?どうすれば解決できますか?

4

3 に答える 3

0

「機能していない」が何を意味するのかはわかりませんが、とにかくこれは簡単なようです：

Dim newCount = drpAdult.Items.Count + 1
For i As Int32 = 0 To newCount
    Dim newItem As New ListItem(i.ToString, i.ToString)
    drpInfant.Items.Add(newItem)
Next
于 2013-05-24T09:02:38.303 に答える
0

これらの線に沿った何か...

drpInfant.Items.Clear()
dim n as Integer
Integer.TryParse(drpAdult.SelectedValue, n)

For i as integer = 1 to n
  if n < i Then Exit For 'it's not fun when this condition happens in VB
  drpInfant.Items.Add(New ListItem(i, i))
Next
于 2013-05-24T09:03:50.600 に答える