主题：自动编号含字母

 

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

 

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楼，不会做，上传实例。

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

不明白你什么意图，逻辑是什么啊？不同那你就改代码。

那参考

 

http://www.foxtable.com/webhelp/scr/2403.htm

 

没有逻辑，就无法生成，谁知道你要生成哪种规则的编号。