以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  筛选列不重复，筛选日期为最近日期的代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=11791)
--  作者：youyuweinihao
--  发布时间：2011/8/11 17:00:00
--  筛选列不重复，筛选日期为最近日期的代码

 

我要在表“A”中Afterload代码怎么写

a、b为表A中的列

a为服务项目，b为消费日期

需求：筛选出“a”值不重复，"b"为最近一次消费日期的所有行

代码怎么写啊

 

主要是筛选某列值不重复，日期为最近一次消费日期的代码不会写
--  作者：狐狸爸爸
--  发布时间：2011/8/11 17:45:00
--  

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
--  作者：hhbb
--  发布时间：2011/8/11 17:47:00
--  
根据:SELECT  服务项目,  max(消费日期) as  消费日期 FROM {表A} group by 服务项目
筛选
--  作者：狐狸爸爸
--  发布时间：2011/8/11 17:50:00
--  

3楼好