ComboBox访问列表选项

[Frewin]

CStr(Combobox1.Items(2).ToString),无法读取Combobox1索引为2的值。
For i = 0 To ComboBox1.Items.Count - 1
j = CStr(ComboBox1.Items(i)) If j = svalue Then
MessageBox.Show(svalue.ToString)
ComboBox1.SelectedIndex = i
Exit For
End If
Next


出错了。

[music_0000]

是否为Nothing?

[夜轻风]

Me.ComboBox1.Items.Add("A")
        Me.ComboBox1.Items.Add("B")
        Me.ComboBox1.Items.Add("C")
        Dim j As String = ""
        Dim svalue As String = "A"
        For i As Integer = 0 To ComboBox1.Items.Count - 1
            j = CStr(Me.ComboBox1.Items(i))
            If j = svalue Then
                ComboBox1.SelectedIndex = i
                MessageBox.Show(j)
                Exit For
            End If
        Next

环境VS2005

[Bullatus]

断点跟踪一下，看items下都是什么

[gxingmin]

For i = 0 To ComboBox1.Items.Count - 1 if not(ComboBox1.Items(i) is nothing) andalso ComboBox1.Items(i).ToString()=svalue Then MessageBox.Show(svalue.ToString) ComboBox1.SelectedIndex = i Exit For End If