以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于自动编号  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=106972)
--  作者：侯爱华
--  发布时间：2017/9/19 11:58:00
--  关于自动编号
\'需求说明： \'给在客户交易表（YW_XSYW_KHJY）中对客户交易编号字段：KHJY_CODE字段自动进行编号,编号形式类似：JY2016-000001234 \'编号方法是：JY+项目编号（LXTZ_CODE）中的年份（e.DataROW("LXTZ_CODE").SubString(5,4)）,加上-号，加上9位定长顺序号，000000001 If e.DataRow.IsBull("KHJY_NAME") OrElse e.DataRow.IsNull("LXTZ_CODE") Then e.DataRow("KHJY_CODE") = Nothing Else Dim lb As String = "JY" Dim max As String Dim idx As Integer Dim year As String = e.DataRow("LXTZ_CODE").SubString(4,4) lb = lb & year & "-" max = e.DataTable.Computer("Max(KHJY_CODE)",lb And [_Identify] <> &e.DatatRow("_Identify")) \'取得该年编号的最大值 If max > "" Then \'如果有最大编号 idx = CInt(max.SubString(7,9) + 1 Else idx = 1 End If e.DataRow("KHJY_CODE") = lb & Format(idx,"000000000") End If
--  作者：有点甜
--  发布时间：2017/9/19 12:04:00
--  

参考

 

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

 

如果有问题，做个具体foxtable上传上来测试。