以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  自动编号的起始号码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=64210)

--  作者:seal51
--  发布时间:2015/2/7 11:40:00
--  自动编号的起始号码
有段代码:

Dim max As String
max = e.DataTable.Compute("max(采购产品ID)")
If max > "" Then
    Dim idx As Integer
    idx = CInt(max.SubString(3,6)) + 1
    e.DataRow("采购产品ID") = "CID" & Format(idx,"000000")
Else
    e.DataRow("采购产品ID") = "CID" & "000001"
End If

新增行的编号从CID000000开始, 如何让代码从CID150000开始自动编号呢

--  作者:Bin
--  发布时间:2015/2/7 11:41:00
--  
Dim max As String
max = e.DataTable.Compute("max(采购产品ID)")
If max > "" Then
    Dim idx As Integer
    idx = CInt(max.SubString(3,6)) + 1
    e.DataRow("采购产品ID") = "CID" & Format(idx,"000000")
Else
    e.DataRow("采购产品ID") = "CID" & "150000"
End If

--  作者:seal51
--  发布时间:2015/2/7 11:50:00
--  
BIN老师, 没有递增啊,测试新增多行编号都是CID15000, 而不是CID150001, CID150002.....
--  作者:Bin
--  发布时间:2015/2/7 11:58:00
--  
e.DataTable.Compute("max(采购产品ID)")  除非你这句代码.每次都获取不到值.具体上个例子看看吧
--  作者:seal51
--  发布时间:2015/2/7 12:12:00
--  
后台是SQL数据库, 需要设置什么吗
--  作者:Bin
--  发布时间:2015/2/7 12:14:00
--  
不需要.
--  作者:Bin
--  发布时间:2015/2/7 12:14:00
--  
例子的话.你做个内部数据源的例子吧
--  作者:seal51
--  发布时间:2015/2/7 12:21:00
--  
内部表测试没有问题, 采购产品ID列在SQL数据库需要更改什么吗, 
--  作者:seal51
--  发布时间:2015/2/7 12:27:00
--  
新建了一个表, 好了, 谢谢BIN老师