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

max = e.DataTable.Compute("Max(编号)","日期 = #" & e.DataRow("日期") & "# And [_Identify] <> " & e.DataRow("_Identify")) '取得该天的最大编号 

以上是狐表帮助上的自动编号的其中一段代码，我想使这一句代码变为  取得（ 日期列中） 该年的最大编号。 即把该天改为该年 应当如何改这句代码？？请各位指教！

dim y as 整数 = e.datarow("日期").year

日期>=#y/1/1# and 日期<=#y/12/31#  (这里是合成的表达式，自己稍微完善一下)

参考一下：
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 & "#")