Foxtable(狐表)用户栏目专家坐堂 → 银行卡号如何变成4为一组以空格分开?


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

主题:银行卡号如何变成4为一组以空格分开?

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


加好友 发短信
等级:小狐 帖子:332 积分:2471 威望:0 精华:0 注册:2012/6/23 11:15:00
银行卡号如何变成4为一组以空格分开?  发帖心情 Post By:2012/7/11 12:38:00 [只看该作者]

银行卡号如何变成4为一组以空格分开?

 回到顶部
帅哥哟,离线,有人找我吗?
一叶扁舟
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:184 积分:3279 威望:0 精华:0 注册:2011/2/20 6:24:00
  发帖心情 Post By:2012/7/11 13:17:00 [只看该作者]

先判断卡号有几位,然后循环,在第5(4)位、第10(9)位……加入半角空格。

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/7/11 14:22:00 [只看该作者]

直接用表达式列也行:

 

substring([第一列],1,4) + ' ' + substring([第一列],5,4) + ' ' +substring([第一列],9,4) + ' ' + substring([第一列],13,4)


 回到顶部
帅哥哟,离线,有人找我吗?
一叶扁舟
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:184 积分:3279 威望:0 精华:0 注册:2011/2/20 6:24:00
  发帖心情 Post By:2012/7/11 14:49:00 [只看该作者]

我也是初学,做了一个

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:银行卡号.rar

可是,还有个问题,如果把“衍生卡号”设成表达式列,打开项目,这一列就是空的了,需要对“银行卡号”做重置列;如果把“衍生卡号”设置成数据列,这一列不是只读的。

请问:如何用代码把数据列置为只读列?

[此贴子已经被作者于2012-7-11 14:50:35编辑过]

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/7/11 15:03:00 [只看该作者]

表达式不会空白的:

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:银行卡号.table


 


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


加好友 发短信 一级勋章
等级:超级版主 帖子:7258 积分:40773 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2012/7/11 15:19:00 [只看该作者]

format()

 回到顶部
帅哥哟,离线,有人找我吗?
一叶扁舟
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:184 积分:3279 威望:0 精华:0 注册:2011/2/20 6:24:00
  发帖心情 Post By:2012/7/11 15:23:00 [只看该作者]

重置“银行卡号”列,就出错。


图片点击可在新窗口打开查看此主题相关图片如下:出错.jpg
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
一叶扁舟
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:184 积分:3279 威望:0 精华:0 注册:2011/2/20 6:24:00
  发帖心情 Post By:2012/7/11 15:23:00 [只看该作者]

或者是修改银行卡号列,也是这个错误。

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


加好友 发短信
等级:八尾狐 帖子:1812 积分:12999 威望:0 精华:14 注册:2008/10/11 18:07:00
  发帖心情 Post By:2012/7/11 15:26:00 [只看该作者]

Dim n1,n2 As Integer
Dim s1,s2 As String
s1="0123456789025681123"
For n1 = 4 To s1.length  Step 4
    s2+=s1.Substring(n1-4,4) & " "
Next
n2 =s1.Length Mod 4
Output.Show((s2 & Right(s1,n2)).Trim())  '0123 4567 8902 5681 123

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/7/11 15:27:00 [只看该作者]

改用表达式列后,你应该删除Datacolchanged事件中的代码,那是多余的了。


 回到顶部
总数 25 1 2 3 下一页