以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]代码修改求助  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=44184)
--  作者：lindong
--  发布时间：2013/12/25 2:30:00
--  [求助]代码修改求助

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

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

[此贴子已经被作者于2013-12-25 2:30:39编辑过]
--  作者：yan2006l
--  发布时间：2013/12/25 4:09:00
--  

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

日期>=#y/1/1# and 日期<=#y/12/31#  (这里是合成的表达式，自己稍微完善一下)
--  作者：狐狸爸爸
--  发布时间：2013/12/25 8:28:00
--  

参考一下：
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 & "#")
--  作者：lindong
--  发布时间：2013/12/25 12:49:00
--  
谢谢狐爸的指教！！代码可以实现了