- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=24476)
-- 发布时间：2012/10/15 13:12:00
-- [求助]
请教在狐表的自动编号中怎么设置为带时间的编号呢？例如今天 201210150001 201210150002 201210150003
-- 发布时间：2012/10/15 13:20:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.zip |
-- 发布时间：2012/10/15 14:36:00
--
不好意思 我想要的是 自动读取系统时间 生成 前6位或者前八位的日期为首 末位自动编号 的
例如：
年 月 日编号
20121015001
20121015002
20121016003
20121017004
20121101005
-- 发布时间：2012/10/15 14:52:00
--
某一列改变，就生成一个编号，但这一列不能是 编号列，不然会造成死循环。
If e.DataCol.Name = "日期" Then
Dim max As String = e.DataTable.Compute("Max(khbh)", "khbh like \'" & Format(Date.Today, "yyyyMMdd") & "*\'")
If max Is Nothing Then
e.DataRow("khbh") = Format(Date.Today, "yyyyMMdd") & "0001"
Else
Dim num As Integer = max.SubString(8, 4) + 1
e.DataRow("khbh") = Format(Date.Today, "yyyyMMdd") & Format(num, "0000")
End If
End If
-- 发布时间：2012/10/16 19:35:00
--
不好意思 看不懂
-- 发布时间：2012/10/16 19:47:00
--
看这个:
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目9.table |
-- 发布时间：2012/10/21 19:39:00
--
谢谢 狐爸 就是不一样 原来这么轻松
