我如何对数据表进行排序

时间:2013-10-21 22:31:24

标签: vb.net datatable

如何对数据表进行排序?我需要从函数返回一个数据表。我一直在努力奋斗这几个小时,互联网有几个不同的答案,其中没有一个似乎对我有用。

编辑:我想打自己。在表上执行DataView.Sort,然后使用DataView.ToTable()将已排序的数据放入新数据集中...... 示例:

Dim view As New DataView(OriginalDataSet) 'Put your original dataset into a dataview
view.Sort = "ColumnName" ' Sort your data view
Dim NewDataSet As DataTable = view.ToTable() ' Put your dataview into a new datatable

示例结束

我有一个相对简单的示例表,取自教学网站。一个转折点是我尝试排序的行中有重复的值。

Module Module1

    Sub Main()
    ' Get a DataTable instance from helper function.
    Dim table As DataTable = GetTable()
    End Sub

    ''' <summary>
    ''' Helper function that creates new DataTable.
    ''' </summary>
    Function GetTable() As DataTable
    ' Create new DataTable instance.
    Dim table As New DataTable
    ' Create four typed columns in the DataTable.
    table.Columns.Add("Dosage", GetType(Integer))
    table.Columns.Add("Drug", GetType(String))
    table.Columns.Add("Patient", GetType(String))
    table.Columns.Add("Date", GetType(DateTime))
    ' Add five rows with those columns filled in the DataTable.
    table.Rows.Add(25, "Indocin", "David", DateTime.Now)
    table.Rows.Add(50, "Enebrel", "Sam", DateTime.Now)
    table.Rows.Add(10, "Hydralazine", "Christoff", DateTime.Now)
    table.Rows.Add(21, "Combivent", "Janet", DateTime.Now)
    table.Rows.Add(100, "Dilantin", "Melanie", DateTime.Now)
table.Rows.Add(21, "Aspirin", "Janet", DateTime.Now)
    Return table
    End Function

End Module

我尝试选择一个数组,然后循环遍历数组并将每一行放入一个新的数据表中,但select不是抓取行。例如:

drarray = ds.Select(“我想在这里选择全部”,“MySortColumn”)

我尝试了各种循环策略,内部循环等,似乎无法解决这个问题。

我已经尝试过dataTable.DefaultView.Sort =“sortExp”,但我无法让它工作。

那我错过了什么?我想用DefaultView和Select方法,我只是遗漏了一些语法。

那么最好的方法是什么,我错过了什么?

3 个答案:

答案 0 :(得分:14)

您可以使用以下内容:

Return table.Select("","Columns to sort on").CopyToDataTable

答案 1 :(得分:6)

使用DataView在DataTable中创建数据视图。这允许您进行排序,过滤等。这是一个C#示例:Datatable VS dataview

答案 2 :(得分:1)

这可能有助于sortExp可以是应该执行排序的字段filterExp应该评估为true或false。假设以下字段

Dim filterExp As String = "Patient<> ''"
Dim sortExp As String = "Date "
dt_item.Select(filterExp, sortExp, DataViewRowState.CurrentRows)

上面的代码显示了如何过滤和排序数据表dt_item。过滤器表达式选择Patient不为NULL的Date。排序表达式导致结果按日期列

排序