- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 窗口文本框显示编号的代码问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=100499)
-- 发布时间：2017/5/12 14:19:00
-- 窗口文本框显示编号的代码问题
问题如图：
此主题相关图片如下：qq截图20170512140551.png
请各位老师帮忙。
-- 发布时间：2017/5/12 14:34:00
--
AfterLoad事件
Dim max As String = DataTables("收款明细表").compute("max(收款编号)")
If max > "" Then
max = max.SubString(0,5) & Format(val(max.SubString(5))+1, "00000")
Else
max = Date.Today.Year & "-00001"
End If
e.form.controls("TextBox1").Text = max
-- 发布时间：2017/5/12 14:45:00
--
谢谢有点色老师。