情况说明：

数据库中“全宗号”列的数值从1，2，3，4，5中取，分类号的值从0，1，2，3，4，5，6中取值，“年度”列的值是4位数，如2005，2006等，那么对于分类号是0，2，3的行，如何自动生成流水号列“存址号”列，其形式为“全宗号-年度-10001开始的递增数”，即形式为1-2005-10001，1-2005-10002，...，1-2005-10554，...，如果输入的年度以前没有输过的，比如新的年度2006，那么流水号又从10001开始，即1-2006-10001,1-2006-10002，...以此递增。

如何代码实现自动生成流水号？谢谢！

附数据：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目8.foxdb

谢谢指点！还想请教下，如果全宗号是X01，X02，X03，X04，X05时，流水号如X01-2005-10004形式的，怎么修改呢？因为此时e.DataTable.Compute("Max(存址号)", "全宗号 = " & e.DataRow("全宗号") & " And 年度 = " & e.DataRow("年度") & " And 分类号 in (0,2,3) And _Identify <> " & e.DataRow("_Identify"))代码，运行弹出调用的目标异常的错误，如何修改？谢谢！不同的全宗号，分类号是0，2，3，如果年度相同的话，流水号是重新编的，又从10001开始。所以在筛选里把全宗号 = " & e.DataRow("全宗号") 这个加上了

嗯，我也这样想，可是增加行的时候报错了。怎么办?

Dim idx As String = e.DataTable.Compute("Max(存址号)", "全宗号 = \'" & e.DataRow("全宗号") & "\' And 年度 = " & e.DataRow("年度") & " And 分类号 in (0,2,3) And _Identify <> " & e.DataRow("_Identify"))

这个语句对于X01-2005-10001,X01-2005-10002,...,...

好像没有办法判断最大值，因为其中有X字母，不知是不是这样？

还是不行。

我测试时改成

Select Case e.DataCol.Name
    Case "全宗号", "年度", "分类号"
        If e.DataRow.IsNull("全宗号") = False AndAlso e.DataRow.IsNull("分类号") = False AndAlso e.DataRow.IsNull("年度") = False  Then
            If e.DataRow("分类号") = 0 OrElse e.DataRow("分类号") = 2 OrElse e.DataRow("分类号") = 3 Then
                Dim idx As String = e.DataTable.Compute("Max(存址号)", "全宗号 = " & e.DataRow("全宗号") & " And 年度 = " & e.DataRow("年度") & " And 分类号 in (0,2,3) And _Identify <> " & e.DataRow("_Identify"))
                messagebox.show(idx)
            End If
        End If
End Select

弹出“调用的目标发生异常”错误。

说明idx值有问题