DataSet中怎么查询指定条件的记录

Question

DataSet中怎么查询指定条件的记录
怎么样移到上一条记录或下一条记录呀？

Answer 1

用sql語句加where 查詢指定數據
用數據綁定System.Windows.Forms.CurrencyManager

Answer 2

DataSet.Tables[0].Select("列名=条件");

Answer 3

查询指定条件可以直接从数据库中用sql 进行查询,,,或者是:dataset1.tabel("aaa").select(.....)上一条,下一条,结合datagrid用..
你看一下这个代码.:
dim i as integet,co as integer
Private Sub student_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dat.Clear()        com.Connection = con
        com.CommandText = "select........"
        adp.SelectCommand = com
        adp.Fill(dat, "ts")
        Me.DataGrid1.DataSource = dat.Tables("ts").DefaultView
        co = dat.Tables("ts").Rows.Count
        If co = 0 Then
            MsgBox("没有记录", MsgBoxStyle.OKOnly, "提示")
            Me.Button6.Enabled = False
            Me.Button7.Enabled = False
        Else
            i = 0 
            TextBox1.Text = dat.Tables("ts").Rows(i).Item("学号")
            TextBox2.Text = dat.Tables("ts").Rows(i).Item("姓名")            End If    End Sub  Private Sub DataGrid1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGrid1.MouseUp
        Try
            Me.DataGrid1.Select(DataGrid1.CurrentRowIndex) '选择当前活动行
            i = DataGrid1.CurrentRowIndex
        Catch ex As Exception
            If Err.Number = 9 Then
                MsgBox("数据库没有被加载,表中没有数据!")
            End If
        End Try
        TextBox1.Text = dat.Tables("ts").Rows(i).Item("学号")
        TextBox2.Text = dat.Tables("ts").Rows(i).Item("姓名")    End Sub    '上一条记录    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Label8.Text = ""
        If i < 0 Or i = 0 Then
            Label8.Text = "这是第一条记录！"
        Else
            i = i - 1
            TextBox1.Text = dat.Tables("ts").Rows(i).Item("学号")
            TextBox2.Text = dat.Tables("ts").Rows(i).Item("姓名")        End If
    End Sub 
    '下一条记录
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Label8.Text = ""
        If i > co - 1 Or i = co - 1 Then
            Label8.Text = "这是最后一条记录！"
        Else
            i = i + 1
            TextBox1.Text = dat.Tables("ts").Rows(i).Item("学号")
            TextBox2.Text = dat.Tables("ts").Rows(i).Item("姓名")        End If
    End Sub