主题：老大 帮我看个SQL语句 取同一客户 同一产品的最后记录

这个必须用inner join ，昨天我发的那帖子你参考下，同样地问题，仔细看看inner join后面的语句，修改下应该就可以了

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=29969&skin=0

这个算查询表吗？

那再变通下，用这个SQL，cmd语句获取DT,再获取每行的identify，用in语句加载获得的Iidentify集合到Table就可以了，原来我就是这么做的

Dim strIn As String = ""

Dim cmdText As String = ""
Dim cmd As new SQLCommand
cmd.C

cmd.CommandText = "Select  * From {订单} a INNER JOIN (Select Max(日期) As 日期 From {订单} Group By 产品) b on a.日期 = b.日期"
Dim dt As DataTable = cmd.ExecuteReader
For Each dr As DataRow In dt.DataRows
    strIn = strIn & "'" & dr("_Identify") & "',"
Next
strIn = strIn.TrimEnd(",")
cmdText = "Select 单价,折扣,数量,日期,产品,客户,雇员,日期 from {订单} where [_Identify] In (" & strIn & ")"

Tables("窗口1_Table1").Fill(cmdText,"Sale",false)

如果是数值，去掉'

请查看效果，没有问题，这个例子没有_Identify列的，编号列是数值型

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:解决问题.rar

Dim strIn As String = ""
Dim cmdText As String = ""
Dim cmd As new SQLCommand
cmd.C
cmd.CommandText = "Select * From {订单} a INNER JOIN (Select 产品,Max(日期) As 日期 From {订单} Group By 产品) b on a.日期 = b.日期 and a.产品 = b.产品"
Dim dt As DataTable = cmd.ExecuteReader
For Each dr As DataRow In dt.DataRows
    strIn = strIn & dr("编号") & ","
Next
strIn = strIn.TrimEnd(",")
cmdText = "Select * from {订单} where 编号 In (" & strIn & ") order by 客户"
Tables("窗口1_Table1").Fill(cmdText,"Sale",False)
Tables("窗口1_Table1").AllowEdit = True

应该不会有重复。你先检查下b语句是否已经造成重复了，有的话再加条件，没有的话再看看最后的限定条件是否不足~~

客户，产品，时间，再把语句修改下，我实际测试了，以下4行代码就能够保存了，不需要转换，请大家也测试下

Dim cmdText As String = ""
cmdText = "Select * From {订单} a INNER JOIN (Select 客户,产品, Max(日期) As 日期  From {订单} Group By 客户,产品) b on a.日期 = b.日期 And a.产品 = b.产品 and a.客户 = b.客户"
Tables("窗口1_Table1").Fill(cmdText,"Sale",False)
Tables("窗口1_Table1").AllowEdit = True

那你如何去区分每笔记录的时间先后顺序那？你能区别的话，那你继续添加条件取值。

我猜测如果只是按照你添加到记录系统的顺序的话，你只需要在添加一句max(编号) as 编号 应该就可以了把

cmdText = "Select * From {订单} a INNER JOIN (Select 客户,产品, Max(日期) As 日期 ，max(编号) as 编号) From {订单} Group By 客户,产品) b on a.日期 = b.日期 And a.产品 = b.产品 and a.客户 = b.客户 and a.编号 = b.编号"

以上我想应该已经可以简化成如下

cmdText = "Select * From {订单} a INNER JOIN (Select 客户,产品, Max(日期) As 日期 ，max(编号) as 编号) From {订单} Group By 客户,产品) b on  a.编号 = b.编号 group by a.客户,a.产品,a.日期"