主题：[求助]代码修改求助

参考一下：
http://www.foxtable.com/help/topics/2706.htm

 
所有的各种时段都有了。
 
Dim y As Integer =  e.datarow("日期").year '指定年份
Dim dt1 As New Date(y, 1, 1)
Dim dt2 As New Date(y, 12, 31)
max = e.DataTable.Compute("Max(编号)", "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#")