主题：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()

但是效率会比较低。