以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  如何有条件的获取编号最大值?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=3064)

--  作者：yangming --  发布时间：2009/6/8 19:03:00 --  如何有条件的获取编号最大值?     一表是有编号列和日期列,我想按月取编号的最大值,比如,当五月份时,编号列能从1往下增加,当六月份时再从1开始增加,也就是说,新增行的编号列按月份编,下面的代码我设置了条件,可是没用,它仍然是按编号列的最大值编号 Dim a As Integer = e.DataTable.Compute("Max(编号)")   Dim b As String = Left(GetPY(e.DataRow("凭证类别"),True),1).ToUpper()   dr("A") = Format(e.DataRow("日期"),"yyyyMM") & "-"& b   dr("编号") = e.DataTable.Compute(a+1,"[A] = \'" & dr("A") & "\'") [此贴子已经被作者于2009-6-8 19:11:47编辑过]

--  作者：八婺 --  发布时间：2009/6/8 20:24:00 --   或许应该这样吧。 dr("A") = Format(e.DataRow("日期"),"yyyyMM") & "-"& b Dim a As Integer = e.DataTable.Compute("Max(编号)","[A] = \'" & dr("A") & "\'")

--  作者：yangming --  发布时间：2009/6/9 8:05:00 --   谢谢八婺老师,我是自己给套在里面了,呵呵