以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  自动编号  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89643)

--  作者：lk15502 --  发布时间：2016/8/26 7:52:00 --  自动编号 自动编号，原来用compute计算，后来因为后天的没有加载的数据会有重复编号，改为SQLCOMPUTE,代码如下，请老师看看： If e.DataCol.Name = "入库日期" Then     If e.DataRow.IsNull("入库日期") Then         e.DataRow("入库编号") = Nothing     Else         Dim bh As String = "RK" & Format(e.DataRow("入库日期"),"yyyyMMdd") \'取得编号的8位前缀         If e.DataRow("入库编号").StartsWith(bh) = False \'如果编号的前8位不符             Dim max As String             Dim idx As Integer             max = e.DataTable.sqlCompute("Max(入库编号)","入库编号 like \'" & bh & "-" & "%\'")\'取得该天的最大编号             If max > "" Then \'如果存在最大编号                 idx = CInt(max.Substring(bh.length + 1,3)) + 1 \'获得最大编号的后三位顺序号,并加1             Else                 idx = 1 \'否则顺序号等于1             End If             e.DataRow("入库编号") = bh & "-" & Format(idx,"000")             e.DataRow.save         End If     End If End If

--  作者：lk15502 --  发布时间：2016/8/26 7:56:00 --   老师这句代码是不是逻辑不对：  max = e.DataTable.sqlCompute("Max(入库编号)","入库编号 like \'" & bh & "-" & "%\'")\'取得该天的最大编号

--  作者：Hyphen --  发布时间：2016/8/26 8:39:00 --   代码没有问题，提示什么错误？

--  作者：lk15502 --  发布时间：2016/8/26 8:59:00 --   提示没有错误，运行也正常，偶尔有不连续编号产生，概率低

--  作者：Hyphen --  发布时间：2016/8/26 9:05:00 --   不连续编号具体是怎样的。如果保存后再删除，自然就不连了