主题：[求助]求根据自动编号

If e.DataRow("单位基本情况_单位名称")<>"" Then
    e.DataRow("编号_年份")=Format(Date.Today, "yyyy")
End If

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