主题：[求助]帮我看一下错在哪里

If e.DataCol.Name = "编号_年份" Then

    If e.DataRow.IsNull("编号_年份") Then

        e.DataRow("编号_序列号") = Nothing

    Else

        Dim max As String

        Dim idx As Integer

        max = e.DataTable.Compute("Max(编号_序列号)","编号_年份 = #" & e.DataRow("编号_年份") & "# And [_Identify] <> " & e.DataRow("_Identify")) '取得该年的最大序列号

        If max > "" Then '如果存在最大序列号

            idx = CInt(max.Substring(1,3)) + 1 '获得最大序列号的后三位顺序号,并加1

        Else

            idx = 1 '否则顺序号等于1

        End If

        e.DataRow("编号_序列号") = Format(idx,"000")

    End If

End If

帮我看一下这个代码错在哪里，序列号无法自动生成
此主题相关图片如下：捕获.png

此主题相关图片如下：捕获1.png

年份是获取的系统日期中的年

编号_年份是自动获取的系统日期中的年，如2014、2015、...

我想让编号_序列号自动生成，如：当编号_年份中为2014时编号_序列号就从00001开始，当编号_年份中为2015时编号_序列号就自动回到从00001开始

请大侠指教，这个代码该如何写？

此主题相关图片如下：捕获.png

如果是日期列,那么你要搞清楚具体日期是多少.否则会找不到匹配项.

If e.DataCol.Name = "编号_年份" Then

    If e.DataRow.IsNull("编号_年份") Then

        e.DataRow("编号_序列号") = Nothing

    Else

        Dim max As String

        Dim idx As Integer

        max = e.DataTable.Compute("Max(编号_序列号)","编号_年份 = '" & e.DataRow("编号_年份") & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该年的最大序列号

        If max > "" Then '如果存在最大序列号

            idx = CInt(max) + 1 '获得最大序列号的后三位顺序号,并加1

        Else

            idx = 1 '否则顺序号等于1

        End If

        e.DataRow("编号_序列号") = Format(idx,"00000")

    End If

End If