[OSのVer]：WindowsXP　　　[VBのVer]：VB.NET2003
TEXTBOXの値でDataGrid内のデータの並び替えやフィルタ指定をしたいのですが
DataGridコントロールで並び替えやフィルタ指定は可能なのでしょうか？

お世話になります。

> TEXTBOXの値でDataGrid内のデータの並び替えやフィルタ指定をしたいのですが
> DataGridコントロールで並び替えやフィルタ指定は可能なのでしょうか？

DataGridコントロールのDataSourceかDataMemberから
DataTableを取り出して、DataTable.selectでソートするとか。
であれば、可能だと思います。

hhttp://www.microsoft.com/japan/msdn/library/default.asp?
url=/japan/msdn/library/ja/cpref/html/frlrfsystemdatadatatableclassselecttopic3.asp

解答ありがとうございます。
DataGridの抽出条件にTextbox内のデータで範囲絞込をしたいのですが
Me.OleDbDataAdapter.SelectCommand.CommandText = "SELECT 文字列, 数列, 内容 FROM 判定 WHE
RE 数
列>100 and 文字列 =Me.TextBox5.Text"
と記入しましても"１つ以上の必要なパラメータの値が設定されていません"と表示されます
が、
なぜこの様なエラーが発生するか判らない為、教えて頂きたく思います。

お世話になります。

hhttp://www.microsoft.com/japan/msdn/library/default.asp?
url=/japan/msdn/library/ja/cpguide/html/cpconusingparameterswithdataadapters.asp
を見ると、
SelectCommand.CommandTextには
「文字列, 数列, 内容 FROM 判定 WHERE 数列>100 and 文字列 = ?」
と記述し、
SelectCommand.Parameters.Add
でMe.TextBox5.Textの値を追加してやる必要がありそうです。

ありがとうございます。
見て実行してみたのですけれど、よく分からなくて…
もっと簡単に判定できる方法ってないものでしょうか？

お世話になります。

> 見て実行してみたのですけれど、よく分からなくて…
> もっと簡単に判定できる方法ってないものでしょうか？

簡単と感じられるかどうかわかりませんが、
こんな方法もあります。

■以下のコードを実行するに当たっての準備
FormにDataGrid1を貼り付け。Button1、Button2、TextBox1を貼り付け。
データベースc:\northwind.mdbを用意。適当なSQLServerから、Ordersテーブルをインポート。

以下、コード
===============================================================================
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
        '*** DataBaseからデータ取得 ここから
        Dim nwindConn As System.Data.OleDb.OleDbConnection = New
System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                                       "Data Source=c:\northwind.mdb;")
        Dim selectCMD As System.Data.OleDb.OleDbCommand = New System.Data.OleDb.OleDbCommand
("SELECT * FROM Orders", nwindConn)
        selectCMD.CommandTimeout = 30

        Dim DA As System.Data.OleDb.OleDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter
        DA.SelectCommand = selectCMD

        nwindConn.Open()

        Dim DS As DataSet = New DataSet
        DA.Fill(DS, "Orders")

        nwindConn.Close()
        '*** DataBaseからデータ取得 ここまで

        Dim DT As DataTable = DS.Tables("Orders")
        Me.DataGrid1.DataSource = DT

    End Sub

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Button1.Click
        'EmployeeIDでソート
        Dim DT As DataTable = CType(Me.DataGrid1.DataSource, DataTable)
        Dim rows As DataRow() = DT.Select("", "EmployeeID")
        Dim newDT As DataTable = DT.Clone()
        For Each row As DataRow In rows
            newDT.ImportRow(row)
        Next

        '再表示
        Me.DataGrid1.DataSource = newDT
        Me.DataGrid1.Refresh()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button2.Click
        'Textboxの値で絞込み & EmployeeIDでソート
        Dim DT As DataTable = CType(Me.DataGrid1.DataSource, DataTable)
        Dim rows As DataRow() = DT.Select("Freight >= " + Me.TextBox1.Text, "EmployeeID")
        Dim newDT As DataTable = DT.Clone()
        For Each row As DataRow In rows
            newDT.ImportRow(row)
        Next

        '再表示
        Me.DataGrid1.DataSource = newDT
        Me.DataGrid1.Refresh()
    End Sub