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

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