主题：SQL 分组 用狐表自己的方法完成

用SQL语句更好，如果一定要用foxtable处理，参考：

DataTables("表A").StopRedraw
Dim drs As List(of DataRow) = DataTables("表A").Select("","Name, Data Desc")
For i As Integer  = 1 To drs.count-1
    If drs(i)("Name") = drs(i-1)("Name")
        drs(i).remove
        i  =i +1
    End If
Next
DataTables("表A").ResumeRedraw()

但是效率会比较低。

这样完善点：

DataTables("表A").StopRedraw
Dim drs1 As List(of DataRow) = DataTables("表A").Select("","Name, Data Desc")
Dim drs2 As New List(of DataRow)
For i As Integer  = 1 To drs1.count-1
    If drs1(i)("Name") = drs1(i-1)("Name")
        drs2.add(drs1(i))
    End If
Next
For Each dr As DataRow In drs2
    dr.Remove
Next
DataTables("表A").ResumeRedraw()