主题：[求助]自动编号 已上传附件

 这种的话，需要通过代码去完成的。可以先参考一下帮助。不行的话，就上传例子帮你实现。

 http://www.foxtable.com/help/topics/2403.htm

 楼主，这样吧，你做一个简单的例子，输入少量数据，上传上来。这样几分钟就可以解决了。

你这样试一下吧。

 If e.DataCol.Name = "委托日期" Then
    If e.DataRow.IsNull("委托日期") Then
        e.DataRow("自动编号") = Nothing
    Else
        Dim y As String = Format(e.DataRow("委托日期"),"yyyy") '取得编号的年号
        Dim bh As String = e.DataRow("样品编号") & y.SubString(3,2)'取得编号的前缀
        Dim max As String=e.DataTable.Compute("Max(自动编号)","自动编号 like '" & bh & "*'") '取得该年的最大自动编号
        Dim idx As Integer

        If max = "" '如果编号的前缀不符
            idx = 1 '否则顺序号等于1
        Else
            Dim va As String() = CStr(max).Split("-")
            idx = CInt(va(1)) + 1 '获得最大编号的后三位顺序号,并加1
            e.DataRow("自动编号") = bh & "-" & Format(idx,"0000")
        End If
    End If
End If

 Ok了，请看附件。

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

点击浏览该文件:自动编号.table