以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于按照日期自动增加编号的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79312)
--  作者：huangyz_xy
--  发布时间：2015/12/28 22:31:00
--  关于按照日期自动增加编号的问题

20151226-001

20151226-002

20151227-001

20151227-002

20151228-001

20151228-002

20151228-003

如上表，如何在打开的窗口后（afterload）自动检索边编号列，按照如上的规则（前八位为当前日期，后3位为序号递增）自动在文本框textbox内填充序号？已经看过help文档，不得解！请高手们指教，谢谢！
--  作者：大红袍
--  发布时间：2015/12/28 22:32:00
--  

参考

 

http://www.foxtable.com/help/topics/2403.htm

 
--  作者：大红袍
--  发布时间：2015/12/28 22:32:00
--  

看不懂，先看视频

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187

 
--  作者：huangyz_xy
--  发布时间：2015/12/29 0:25:00
--  

看过了，和help文件是一个结果！

就是打开窗体后，会自动在一个文本框中填充这个序号！

这个序号的来源是   判断A表A列是否存在以当前日期为依据的编号，如果有就依次递增，没有就从001开始，比如   20151228-001，谢谢了！
--  作者：Hyphen
--  发布时间：2015/12/29 8:30:00
--  
不明白 文本框中填充要的效果，生成编号参考2楼，其它贴出代码或者上传例子说明
--  作者：大红袍
--  发布时间：2015/12/29 9:14:00
--  
看2楼、3楼
--  作者：huangyz_xy
--  发布时间：2015/12/29 10:28:00
--  
附件有表，有窗口，谢谢！
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:bh2.table
--  作者：大红袍
--  发布时间：2015/12/29 10:39:00
--  
Dim bh As String = Format(Date.today, "yyyyMMdd-") \'取得编号的8位前缀
Dim  max As String
Dim  idx As  Integer
max = DataTables("表A").Compute("Max(第一列)","第一列 like \'" & bh & "%\'") \'取得该天的最大编号
If  max > "" Then \'如果存在最大编号
    idx = CInt(max.Substring(bh.length)) + 1  \'获得最大编号的后三位顺序号,并加1
Else
    idx = 1 \'否则顺序号等于1
End  If
e.Form.Controls("TextBox1").Text = bh & Format(idx,"000")
--  作者：huangyz_xy
--  发布时间：2015/12/29 11:03:00
--  

谢谢！