コンボボックスで「すべて」を選択した時の検索。 (ID：147932)

名前

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

本文

VB2010＋Windows7で開発しています。

検索画面にボタンとコンボボックスとテキストボックスとデータグリッドビューがあり、コンボボックスで選択した列名からテキストボックスに入力した文字列が含まれているエクセルの行をデータグリッドビューに表示する為に以下のプログラムを作成しました。

コンボボックスで「すべて」を選択した時は全列対象としたいのですが、このプログラムでは「 dv.RowFilter = "種類別 LIKE '%" & Key.Text & "%'"」が常に有効になってしまいます。

どうすれば良いのでしょうか？

Dim conStr As New OleDb.OleDbConnectionStringBuilder()
conStr.Provider = "Microsoft.JET.OLEDB.4.0"
conStr.DataSource = Application.StartupPath & "\test2.xls"
conStr("Extended Properties") = "Excel 8.0;HDR=yes;IMEX=1"

Dim sql As String = "SELECT * FROM [Sheet1$]"
Using da As New OleDb.OleDbDataAdapter(sql, conStr.ConnectionString)
da.Fill(ds, "Sheet1")End Using
table = ds.Tables("Sheet1")Dim dv As DataView = New DataView(table)

Select Case Item.SelectedItem
Case "製品名1"
dv.RowFilter = "品名1 LIKE '%" & Key.Text & "%'"
Case "製品名2"
dv.RowFilter = "品名2 LIKE '%" & Key.Text & "%'"
Case "種類別"
dv.RowFilter = "種類別 LIKE '%" & Key.Text & "%'"
Case Else
dv.RowFilter = "品名1 LIKE '%" & Key.Text & "%'"
dv.RowFilter = "品名2 LIKE '%" & Key.Text & "%'"
dv.RowFilter = "種類別 LIKE '%" & Key.Text & "%'"
End Select

DataGridView1.DataSource = dv

←解決時は質問者本人がここをチェックしてください。

戻る