VB DataTable 两列去重，其它取最大值

在VB.NET中，DataTable是一种用于存储表格数据的数据结构，如果你想要从两个列中去除重复值，并对其他列获取每个组的最大值，你可以按照以下步骤操作：

1. 首先，你需要创建一个临时的DataTable来存储处理后的结果。
2. 确定需要去重的两列，假设它们分别是Column1和Column2。你可以使用`Distinct()`方法来过滤出唯一的组合。
3. 对于剩余的列（假设是Column3），你可以遍历原始DataTable，并在新DataTable中为每一对唯一组合找出Column3的最大值。这通常涉及到一个GroupBy操作，然后对每个组应用Max函数。

示例代码如下：

Dim sourceTable As New DataTable ' 假设这是你的源DataTable
Dim uniqueTable As New DataTable()

' 去除重复，保留唯一组合
For Each row In sourceTable.AsEnumerable()
    Dim key = New With { .Column1 = row.Field(Of Type1)(0), .Column2 = row.Field(Of Type2)(1) }
    If Not uniqueTable.AsEnumerable().Any(Function(x) x.Field(Of KeyType).Equals(key)) Then
        uniqueTable.Rows.Add(key.Column1, key.Column2)
    End If
Next

' 对每一对唯一组合，找到Column3的最大值
For Each groupRow In uniqueTable.AsEnumerable()
    Dim maxValue = sourceTable.AsEnumerable()
        .Where(Function(r) r.Field(Of KeyType)(0) = groupRow.Field(Of Type1)(0) AndAlso r.Field(Of KeyType)(1) = groupRow.Field(Of Type2)(1))
        .Max(Function(r) r.Field(Of Column3Type)(2))
    groupRow("Column3") = maxValue
Next

这里假设`KeyType`, `Type1`, `Type2`, 和 `Column3Type`是你表中的适当数据类型。完成后，`uniqueTable`将包含去重后的行，并在Column3列中拥有每个唯一组合的最大值。