主题：自动编号含字母

表中的编号字段含有字母跟数字，要实现每增加一行的时候，编号就自动加1，这个怎么实现？

参考：http://www.foxtable.com/webhelp/scr/2403.htm

这个字母数量不是固定的，多少个字母都有的，字母是要根据实际情况来录入的，所以说，字母也不是固定下来的

 

如果你要在增加的时候自动编号，就改成

 

Dim max As String = e.DataTable.Compute("Max(ypbh)")

If max > "" Then

    e.DataRow("ypbh") = "SX" & Format(val(max.Substring(2)) + 1, "0000")

else

      e.DataRow("ypbh") = "SX0001"

End If

如果你的字母不固定，就不能在增加行的时候得到编号，而是应该在填入编号前缀之后得到

 

2楼的帮助文档，你把substring的数字，改成 bh.length 就行了

我看帮助里的参数有点多，不知道具体怎么改，还麻烦说下具体怎么改，谢谢啦！

看4楼5楼，不会做，上传实例。

请问各位老师这个怎么操作？

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

点击浏览该文件:含字母列自动编号.zip

Dim max As String = e.DataTable.Compute("Max(第一列)")
If max > "" Then
    e.DataRow("第一列") = "ab" & Format(val(max.Substring(2)) + 1, "000")
Else
    e.DataRow("第一列") = "SX0001"
End If

老师，这个字母跟数字都是不固定的，有可能是ab，cd，abc，abcdef，数字有可能是3位，4位，8位或者9位