在VB.Net中筛选DataTable

Question

我有一个具有以下结构的数据表。

mid    mname      version  baseID
------------------------------------
1      tag3         1       1
2      tag3         2       1
3      tag3         3       1
4      tag5         1       4
5      tag5         2       4 
6      tag6         1       6

从上述结构中，我需要一个类似于这样的数据表格。 我需要从数据表中获取最高版本。

mid    mname      version  baseID
------------------------------------
3      tag3         3       1
5      tag5         2       4 
6      tag6         1       6

如何创建一个类似上面的datatable。我正在使用Vb.Net。

提前感谢。

- Coderr

---

我无法修改查询。（SQL部分） - Coderr

Answer 1

这取决于您如何填充原始数据表。如果您是通过查询数据库来完成的，我建议您在查询结果中直接格式化，例如：

（SQL）

select mid, mname, version, baseID
from <table> t
Join (select baseid, max(version) as version 
         from <table> group by baseID)maxVersion 
    on maxVersion.baseid = t.baseid and maxVersion.version = t.version

这将在将数据放入datatable之前对其进行格式化。

如果datatable是通过其他方式填充的，并且您需要过滤它，请将其放入另一个datatable中。然后，一种简单的方法（假设您的datatable始终按照上述方式排序）是：

for i as integer = 0 to datatable.rows.count - 1
    if i < datatable.rows.count - 1 Then
        if datatable.rows(i)(4).value <> datatable.rows(i+1)(4).value then
            newDataTable.rows.Add(datatable.rows(i).itemArray())
        End If
    Else
        newDataTable.rows.Add(datatable.rows(i).itemArray())
    End if
Next

现在语法可能有些问题（我在记事本中编写），但逻辑思路是正确的。假设每次都有相同的格式，那么我会检查行何时更改为新的基础ID，并将该行添加到新数据表中。从您发布的示例中可以看出，特定基础ID的最大版本是该基础ID的最后一行。

-克里斯

- Chris Santiago

---

谢谢您的回答。我无法修改查询。（SQL部分） - Coderr

您提供的解决方案无法工作。很抱歉让您失望了 :( - Coderr

Answer 2

我使用了 Datatables.Compute() 函数来进行 GROUP By 操作并获取最大值。

Function GroupBy(ByVal i_sGroupByColumn As String, ByVal i_sAggregateColumn As String, ByVal i_dSourceTable As DataTable) As DataTable

        Dim dv As New DataView(i_dSourceTable)

        'getting distinct values for group column
        Dim dtGroup As DataTable = dv.ToTable(True, New String() {i_sGroupByColumn})
        'adding column for the row count
        dtGroup.Columns.Add("Max_Version", GetType(Double))

        'looping thru distinct values for the group, counting
        For Each dr As DataRow In dtGroup.Rows
            dr("Max_Version") = i_dSourceTable.Compute("MAX(" & i_sAggregateColumn & ")", i_sGroupByColumn & " = '" & dr(i_sGroupByColumn) & "'")

        Next

        'returning grouped/counted result
        Return dtGroup
    End Function

- Coderr