- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 银行卡号如何变成4为一组以空格分开？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=21407)
-- 发布时间：2012/7/11 12:38:00
-- 银行卡号如何变成4为一组以空格分开？
银行卡号如何变成4为一组以空格分开？
-- 发布时间：2012/7/11 13:17:00
--
先判断卡号有几位，然后循环，在第5（4）位、第10（9）位……加入半角空格。
-- 发布时间：2012/7/11 14:22:00
--
直接用表达式列也行：
substring([第一列],1,4) + \' \' + substring([第一列],5,4) + \' \' +substring([第一列],9,4) + \' \' + substring([第一列],13,4)
-- 发布时间：2012/7/11 14:49:00
--
我也是初学，做了一个
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:银行卡号.rar |
可是，还有个问题，如果把“衍生卡号”设成表达式列，打开项目，这一列就是空的了，需要对“银行卡号”做重置列；如果把“衍生卡号”设置成数据列，这一列不是只读的。
请问：如何用代码把数据列置为只读列？
[此贴子已经被作者于2012-7-11 14:50:35编辑过]
-- 发布时间：2012/7/11 15:03:00
--
表达式不会空白的：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:银行卡号.table |
-- 发布时间：2012/7/11 15:19:00
--
format()
-- 发布时间：2012/7/11 15:23:00
--
重置“银行卡号”列，就出错。
此主题相关图片如下：出错.jpg
-- 发布时间：2012/7/11 15:23:00
--
或者是修改银行卡号列，也是这个错误。
-- 发布时间：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
-- 发布时间：2012/7/11 15:27:00
--
改用表达式列后，你应该删除Datacolchanged事件中的代码，那是多余的了。