以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  关于新增时候自动根据上面行的内容递增代码  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=144173)
--  作者：有点蓝
--  发布时间：2019/12/13 8:45:00
--  
参考：http://www.foxtable.com/webhelp/topics/2403.htm
--  作者：有点蓝
--  发布时间：2019/12/13 21:08:00
--  
datarowadded事件

Dim i As Integer = tabels(e.DataTable.name).findrow(e.DataRow)
If i<= 0 Then
    e.DataRow("编号") = "MJ0001"
Else
    Dim bh As String = tabels(e.DataTable.name).rows(i-1)("编号")
    If bh.length > 2
        e.DataRow("编号") = "MJ" & format(val(bh.substring(3)) + 1,"0000")
    Else
        e.DataRow("编号") = "MJ0001"
    End If
End If