主题：关于按照日期自动增加编号的问题

20151226-001

20151226-002

20151227-001

20151227-002

20151228-001

20151228-002

20151228-003

如上表，如何在打开的窗口后（afterload）自动检索边编号列，按照如上的规则（前八位为当前日期，后3位为序号递增）自动在文本框textbox内填充序号？已经看过help文档，不得解！请高手们指教，谢谢！

参考

 

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

 

看不懂，先看视频

 

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

 

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

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

这个序号的来源是   判断A表A列是否存在以当前日期为依据的编号，如果有就依次递增，没有就从001开始，比如   20151228-001，谢谢了！

不明白 文本框中填充要的效果，生成编号参考2楼，其它贴出代码或者上传例子说明

看2楼、3楼

附件有表，有窗口，谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:bh2.table

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")

谢谢！