窗口文本框显示编号的代码问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口文本框显示编号的代码问题

共有1752人关注过本帖树形打印复制链接主题：窗口文本框显示编号的代码问题

feixianzhi

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：503 积分：4002 威望：0 精华：0 注册：2016/6/7 7:45:00

窗口文本框显示编号的代码问题 发帖心情

Post By：2017/5/12 14:19:00 [只看该作者]

问题如图：

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20170512140551.png

请各位老师帮忙。

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：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

feixianzhi

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：503 积分：4002 威望：0 精华：0 注册：2016/6/7 7:45:00

Post By：2017/5/12 14:45:00 [只看该作者]

谢谢有点色老师。

下一主题 >> << 上一主题

主题：窗口文本框显示编号的代码问题