标题：如何有条件的获取编号最大值?

    一表是有编号列和日期列,我想按月取编号的最大值,比如,当五月份时,编号列能从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") & "'")

或许应该这样吧。


dr("A") = Format(e.DataRow("日期"),"yyyyMM") & "-"& b
Dim a As Integer = e.DataTable.Compute("Max(编号)","[A] = '" & dr("A") & "'")

谢谢八婺老师,我是自己给套在里面了,呵呵