タイトル : 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時間はかかったなぁ、、、。 けど、楽しいぜ! |