Dim ld As Date
Dim cmd As New SQ-LCommand
cmd.C
cmd.CommandText = "Selec-t top 1 日期 From {订单} Where 产品 = '?' Order by 日期 Desc"
ld = cmd.ExecuteScalar()
找每种产品列最后一条,每种产品产品 = '?',不行
cmd.CommandText = "Select 产品, max(日期) as 日期 From {订单} group by 产品"dim dt as datatable = cmd.ExecuteReader()