一大串数字如何输入完成后自动 4位自动空一格 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 一大串数字如何输入完成后自动 4位自动空一格

共有2553人关注过本帖树形打印复制链接主题：一大串数字如何输入完成后自动 4位自动空一格

有点蓝

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

等级：超级版主帖子：107727 积分：547968 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/6/25 17:28:00 [显示全部帖子]

Dim s As String = "1234567890001"

Dim d As Integer = s.Length - s.Length Mod 4

For i As Integer = d To 1 Step -4

s = s.Insert(i," ")

Output.Show(s)

有点蓝

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

等级：超级版主帖子：107727 积分：547968 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/6/28 16:30:00 [显示全部帖子]

在哪用就放到哪里。表格比如datacolchanging事件，文本框比如textchanged事件

主题：一大串数字 如何 输入完成后 自动 4位自动空一格