ListBoxの操作について。 (ID:141255)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 特攻隊長まるるう様 落ち着いてエラー発生場所を確認してみたところ、 ListBox2_SlectedIndexChanged() でした。 If文で振り分けたところ、エラーが回避されました。 Private Sub ListBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox2.SelectedIndexChanged Me.Label4.Text = CStr(Me.ListBox2.SelectedValue) Me.Label5.Text = Me.ListBox2.GetItemText(Me.ListBox2.SelectedItem) If butan2flg = 1 Then Dim cm As CurrencyManager = Me.ListBox2.BindingContext(Me.ListBox2.DataSource) Dim dr As DataRow = CType(cm.Current, DataRowView).Row Label6.Text = dr("dyaka") Else End If TextBox2.Select() End Sub 自分が情けなく感じます。 ありがとうございました。