以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  编号问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=70588)
--  作者：xiaohuli
--  发布时间：2015/6/24 18:13:00
--  编号问题

自动编号出现错误。类似001之类的编号

Dim  max As String
Dim  idx As  Integer
max = e.DataTable.Compute("Max(编号)","# And [_Identify] <> " & e.DataRow("_Identify"))
If  max > "" Then \'如果存在最大编号
    idx = CInt(max.Substring(3,3)) + 1  \'获得最大编号的后三位顺序号,并加1
    e.DataRow("编号") = Format(idx,"000")
   
Else
    idx = 001 \'否则顺序号等于1
End  If
--  作者：大红袍
--  发布时间：2015/6/24 18:18:00
--  
Dim  max As String
Dim  idx As  Integer
max = e.DataTable.Compute("Max(编号)")
If  max > "" Then \'如果存在最大编号
    idx = CInt(max.Substring(0,3)) + 1  \'获得最大编号的后三位顺序号,并加1
    e.DataRow("编号") = Format(idx,"000")
Else
    e.DataRow("编号") = "001" \'否则顺序号等于1
End  If
--  作者：xiaohuli
--  发布时间：2015/6/24 18:50:00
--  
你好，这个编码还是不对啊。能帮我在好好看看嘛。
--  作者：大红袍
--  发布时间：2015/6/24 19:42:00
--  
 什么不对啊，删除编号列所有内容，把编号列改成字符类型。
[此贴子已经被作者于2015/6/24 19:41:54编辑过]