如果是使用帮助的用法,照搬帮助【三、按日期和类别编号】的代码即可,只是表名和列名不一样而已:http://www.foxtable.com/webhelp/topics/3008.htm
服务端AfterOpenProject,只改下面红色表名,其它地方没改
Dim dt As DataTable
Dim cmd As New SQLCommand
cmd.ConnectionName = "hx"
cmd.CommandText = "Select 类别,Year(日期) As 年, Month(日期) As 月, Max(单据编号) as 单据编号 From {进销存} Group By 类别,Year(日期), Month(日期)"
dt = cmd.ExecuteReader
flbhs.Clear()
For Each dr As DataRow In dt.DataRows
……