主题：记录次数问题

Select e.DataCol.Name
    Case "账户名称"
        If e.DataRow.IsNull("账户名称") Then
            e.DataRow("次数") = Nothing
        Else
            Dim lb As String = e.DataRow("账户名称")
           
            Dim max As String
            Dim idx As String
            max = e.DataTable.sqlCompute("Max(次数)","账户名称 = '" & lb & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该账户名称的最大编号
            If max > "" Then '如果存在最大编号
                idx = cint(max) + 1   '获得最大编号的后三位顺序号,并加1
            Else
                idx = 1 '否则顺序号等于1
            End If
            e.DataRow("次数") =  Format(idx,"00")
        End If
End Select