格式化账号型字符 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 格式化账号型字符

共有24655人关注过本帖树形打印复制链接主题：格式化账号型字符

lrj03

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

加好友

发短信

等级：幼狐帖子：92 积分：1117 威望：0 精华：0 注册：2011/5/6 12:46:00

Post By：2011/5/9 16:30:00 [只看该作者]

谢谢！把代码放入表事件的validateEdit中，得到想要的数了

lihe60

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

加好友

发短信

等级：狐神帖子：6806 积分：43043 威望：0 精华：0 注册：2009/3/2 14:07:00

Post By：2011/5/9 16:55:00 [只看该作者]

以下是引用狐狸爸爸在2011-5-7 14:05:00的发言：

lihe60的80分，因为不够通用。
我给个90分的，任意长度都可以：

If e.Col.Name = "账号"
    Dim s1 As String = e.Text
    Dim s2 As String
    For i As Integer = 0 To s1.Length -1
        s2 = s2 & s1.Chars(i)
        If (i + 1) Mod 4 = 0 Then
            s2 = s2 & " "
        End If
    Next
    e.Text = s2
End If

还有100分的，等后来者。

[此贴子已经被作者于2011-5-7 14:05:46编辑过]

这个应该是100分。这个思路我做了好长时间，但没有做好。

blackzhu

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

加好友

发短信

等级：狐仙帖子：9871 积分：57559 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2011/5/9 17:27:00 [只看该作者]

老大,你的还要简化,我们是不能想喽.

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/5/9 17:30:00 [只看该作者]

仔细看看，其实很简单啊。

lkqing

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

加好友

发短信

等级：一尾狐帖子：492 积分：4243 威望：0 精华：0 注册：2008/9/1 20:47:00

Post By：2011/5/9 20:37:00 [只看该作者]

If e.Col.Name = "账号"
    Dim s2 As String
    For i As Integer = 0 To e.Text.Length -1
        s2 = s2 & e.Text.Chars(i)
        If (i + 1) Mod 4 = 0 Then
            s2 = s2 & " "
        End If
    Next
    e.Text = s2
End If

这样行吗？