投稿者 jun  (社会人) 投稿日時 2009/4/1 01:46:13
通りすがりさん。ありがとうございます。

もらったヒントを使ってコンボボックスで表示された数字以外をデータグリッドビューで非表示にさせることができました。

しかし以下のコードだと、一回目はきちんとコンボボックスで選択した数字以外は非表示になったのですが、二回目に選択すると”現在のセルを非可視セルに設定することはできません。”というエラーがでてきてしまいます。

  Private Sub hihyouji()
        Dim flg As String
        Dim rowco As Integer = DataGridView1.RowCount

        rowco -= 1 'データグリッドの総行数-1
        DataGridView1.CurrentCell = DataGridView1(0, rowco)

        For i as Integer   0 To rowco
            ' コードの値を取得()
            flg = DataGridView1(0, i).Value
            'セルの列を確認()
            'コードの値以外を、非表示にする。
            'MsgBox(DataGridView1(0, i).Value & " " & cmb_ntcd.Text.Trim() & " " & DataGridView1.RowCount)
            If flg.Trim() = cmb_ntcd.Text.Trim() Then

                DataGridView1.Rows(i).Visible = True
                DataGridView1.CurrentCell = DataGridView1(0, i)
            Else
                Dim row_no As Integer = DataGridView1.CurrentCell.RowIndex
                MsgBox(row_no)
                DataGridView1.Rows(i).Visible = False
            End If
        Next
    End Sub

どこが悪いのでしょうか?

ご回答願います。