专家坐堂-找每种产品列最后一条问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  找每种产品列最后一条问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=189002)

--  作者：lin98
--  发布时间：2023/11/4 16:24:00
--  找每种产品列最后一条问题

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()

找每种产品列最后一条,每种产品产品 = \'?\',不行

--  作者：有点蓝
--  发布时间：2023/11/4 16:38:00
--
cmd.CommandText = "Select 产品, max(日期) as  日期 From {订单} group by 产品"
dim dt as datatable = cmd.ExecuteReader()