主题：老大 帮我看个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.送货日期 and 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 & ") Order by 客户名称"

Tables("送货单_Table1").Fill(cmdText,"Server",False)