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


  共有24662人关注过本帖树形打印复制链接

主题:格式化账号型字符

帅哥哟,离线,有人找我吗?
lihe60
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6806 积分:43043 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2011/5/7 13:11:00 [只看该作者]

我测试的可以呀


 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  12楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9871 积分:57559 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2011/5/7 13:22:00 [只看该作者]

一点反应都没有.

 回到顶部
帅哥哟,离线,有人找我吗?
lihe60
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6806 积分:43043 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2011/5/7 13:23:00 [只看该作者]

以下是引用blackzhu在2011-5-7 13:22:00的发言:
一点反应都没有.

不会吧

你把附件传上来。


 回到顶部
帅哥哟,离线,有人找我吗?
lihe60
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6806 积分:43043 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2011/5/7 13:25:00 [只看该作者]

If e.Col.Name = "第一列"

 

是不是这里的问题?


 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  15楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9871 积分:57559 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2011/5/7 13:27:00 [只看该作者]

我测试错了,可以.

 回到顶部
帅哥哟,离线,有人找我吗?
lihe60
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6806 积分:43043 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2011/5/7 13:28:00 [只看该作者]

图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  17楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9871 积分:57559 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2011/5/7 13:29:00 [只看该作者]

Dim Names() As Integer 这个不要的.

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  18楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9871 积分:57559 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2011/5/7 13:30:00 [只看该作者]

我测试了第三段自己做了一个.可以就重新测试了你的,就可以了.

 回到顶部
帅哥哟,离线,有人找我吗?
lihe60
  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6806 积分:43043 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2011/5/7 13:42:00 [只看该作者]

以下是引用blackzhu在2011-5-7 13:29:00的发言:
Dim Names() As Integer 这个不要的.

这个忘记删除,是没有用的。

这个应该不会影响结果吧

[此贴子已经被作者于2011-5-7 13:43:08编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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编辑过]

 回到顶部
总数 60 上一页 1 2 3 4 5 6 下一页