フィルタ機能とワイルドカード
- 題名: フィルタ機能とワイルドカード
- 著者: ど素人
- 日時: 2006/10/02 16:38:25
- ID: 17756
- この記事の返信元:
- この記事への返信:
- ツリーを表示
- 題名: Re[1]: フィルタ機能とワイルドカード
- 著者: まどか
- 日時: 2006/10/02 17:22:59
- ID: 17757
- この記事の返信元:
- この記事への返信:
- ツリーを表示
- 題名: Re[3]: フィルタ機能とワイルドカード
- 著者: ど素人
- 日時: 2006/10/03 14:54:57
- ID: 17770
- この記事の返信元:
- この記事への返信:
- ツリーを表示
- 題名: 【報告】この投稿はマルチポストです
- 著者: (報告)
- 日時: 2006/10/03 15:10:46
- ID: 17773
- この記事の返信元:
- この記事への返信:
- ツリーを表示
- 題名: Re[5]: 【報告】この投稿はマルチポストです
- 著者: ど素人
- 日時: 2006/10/04 10:01:00
- ID: 17779
- この記事の返信元:
- この記事への返信:
- ツリーを表示
分類:[.NET]
初めて書き込ませて頂きます。
テキストボックスにキーを入力すると、そのレコードがdatagridに表示されるようなフィルタ機能を組もうとしまして、
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
dataTable1.DefaultView.RowFilter = "Key LIKE '" & Me.txtKey.Text & "'"
End Sub
とワイルドカードも受け付けるようにしました。そして次にキーが正しく入力されていないときにエラーメッセージが出る
ように以下のプログラムを組んだのですが、ワイルドカードを受け付けなくなってしまいました。
どのようにすればワイルドカードを受け付けるようになるのかよろしくお願いします。
-------------------------------------------------------------------------------------
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If txtKey.Text = "" Then
MsgBox("キーを入力して下さい。")
txtKey.Focus()
Else
Dim i As Integer
i = dataview1.Find(txtKey.Text)
If i > dataview1.Table.Rows.Count Or i < 0 Then
MsgBox("record not found", MsgBoxStyle.Information, "record not found")
Else
dataTable1.DefaultView.RowFilter = "Key LIKE '" & Me.txtKey.Text & "'"
End If
End If
End Sub
--------------------------------------------------------------------------------------