VB2010のListViewでソートをかけて、並べ替えをしています。 クリアーボタンも設定して、いろいろなケースでソートがかけられるようにプログラムを書いたのですが、クリアーをしてからソートをかけますと、次のようなエラーとなります。 「'4' の InvalidArgument=Value は 'index' に対して有効ではありません。 パラメーター名: index」 コードは次のように書いています。 Dim itemcount As Integer = ListView1.Items.Count If itemcount <> 0 Then Dim y3 As Integer Dim k2 As Integer For y3 = 1 To Me.ListView1.Items.Count - 1 k2 = CInt(ListView1.Items(y3 - 1).SubItems(6).Text) + _ CInt(ListView1.Items(y3).SubItems(4).Text) - CInt(ListView1.Items(y3).SubItems(5).Text) ListView1.Items(y3).SubItems(6).Text = CStr(Format(k2, "#,0")) Next Else : itemcount = 0 End If ここの「 k2 = CInt(ListView1.Items(y3 - 1).SubItems(6).Text) + _ CInt(ListView1.Items(y3).SubItems(4).Text) - CInt(ListView1.Items(y3).SubItems(5).Text)」のところが黄色く反転してエラーとなっています。 クリアーは次のようにコードを書いています。 ListView1.Items.Clear() ページ順にこの画面に入って、ソートをかけますと、綺麗にソートがかかりますが、クリアーをしてからソートをかけますとエラーとなります。毎回、前ページに戻ってから再度この画面に入ってソートをかけるとエラーは出ません。それではかなり不便なので、クリアーをしてもソートがかかるようにしたいです。 対処方法をご存知の方はご教授ください。
↧