标题：筛选列不重复，筛选日期为最近日期的代码

我要在表“A”中Afterload代码怎么写 a、b为表A中的列 a为服务项目，b为消费日期 需求：筛选出“a”值不重复，"b"为最近一次消费日期的所有行 代码怎么写啊

 

主要是筛选某列值不重复，日期为最近一次消费日期的代码不会写

Dim vals As List(of String) = DataTables("表A").GetUniqueValues("","a列")
Dim drs As New List(of DataRow)
For Each val In Vals
    Dim dr As DataRow = DataTables("表A").find("a列 = '" & val & "'", "b列 Desc ")
    drs.Add(dr)
Next

根据:SELECT  服务项目,  max(消费日期) as  消费日期 FROM {表A} group by 服务项目

3楼好