VB2008 comboboxを連動させた際のエラー
先日より取り組んでいる顧客検索プログラムですが、combobox1でササキを選ぶとcombobox2には北海道、combobox3には札幌市と表示させたいと思います。先日もアドバイスをいただきそれを参考にすすめていますが、「'0' の InvalidArgument=Value は 'SelectedIndex' に対して有効ではありません。 パラメータ名: SelectedIndex」というエラーが出てしまいどうしても解決出来ません。このエラーの後さらにデバッグすると思ったとおりに動作するのですが、エラーを解決するにはどう対処すると良いのでしょうか?下記が現在のソースとなります。どうかアドバイスをお願い致します。
ササキ,北海道,札幌市,
スズキ,東京都,あきる野市,
サトウ,愛知県,名古屋市,
ハヤシ,北海道,旭川市,
が TextFile1.txtです。
Imports System.IO
------------
Public Class Form1
Private Sub Form1_Load(省略~
Dim fn As String = "C:\TextFile1.txt"
Dim read As System.IO.StreamReader = My.Computer.FileSystem.OpenTextFileReader(fn, System.Text.Encoding.Default)
Dim dline() As String
Dim namelist As ArrayList = New ArrayList()
Dim adr1list As ArrayList = New ArrayList()
Dim adr2list As ArrayList = New ArrayList()
dline = Split(read.ReadToEnd, vbCrLf)
Dim srcary() As String
Dim i As Integer
For i = LBound(dline) To UBound(dline)
srcary = Split(dline(i), ",")
namelist.Add(srcary(0))
adr1list.Add(srcary(1))
adr2list.Add(srcary(2))
Next
ComboBox1.DataSource = namelist
ComboBox1.SelectedIndex = -1
ComboBox1.Text = "名前"
ComboBox2.DataSource = adr1list
ComboBox2.SelectedIndex = -1
ComboBox2.Text = "住所1"
ComboBox3.DataSource = adr2list
ComboBox3.SelectedIndex = -1
ComboBox3.Text = "住所2"
End Sub
-------------
Private Sub ComboBox1_SelectedIndexChanged(省略~
If ComboBox1.SelectedIndex > -1 Then
ComboBox2.SelectedIndex = ComboBox1.SelectedIndex
Else
ComboBox2.Text = ""
End If
End Sub