tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^5: 「*」 メタ文字について
投稿日: 2007/05/26(Sat) 01:10
投稿者area88
こんにちは、area88です。

解けたー!!!(^_^)v

  Dim X As Integer = e.RowIndex
  Dim Y As Object = DataGridView3(2, X).Value
    For Each LB As Object In ListBox1.Items

@ ListBox2.Items.Remove(DataGridView3(0, X).Value + " - " + LB)
        
    If Object.Equals(Y, LB) Then
           ListBox2.Items.Remove(DataGridView3(0, X).Value + " - " + Y)
           ListBox2.Items.Add(DataGridView3(0, X).Value + " - " + Y)
        End If
    Next

@のコードの挿入で、解決いたしました。
さらに、この位置でないとうまく動作しません。
(If Object.Equals(Y, LB) Thenコード以下では、まったく機能しませんでした。)
もともと、ListBox1のコレクションしか登録できないのだから、ListBox1のコレクションに
対応したアイテムを消すだけでよかったのですね。
まさに、Aha!体験だ〜!!!\(◎o◎)/!
たった1行のコードにたどり着くために、のべ12時間はかかったなぁ、、、。
けど、楽しいぜ!

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。