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

可能我没有表达清楚。

如果把“衍生卡号”列设置为表达式列，因为我是用Datacolchanged事件修改该列的值，所以，不需要设置表达式，但这样的结果是，表达式列打开时，总是空的。

如果把“衍生卡号”列设置为数据列，我用Datacolchanged事件修改该列的值，修改完成后，可以手工修改这一列，我的问题是，如何用代码禁止编辑该列。

另外，狐爸提供的表达式解决方案不是普遍适用的，如果是5位卡号（现实中不存在这样的卡号），计算结果为空，如果卡号超长，计算结果也为空。

1、如果“衍生卡号”是表达式列，那么此列的值由表达式决定，你不能在Datacolchanged修改此列的值。

2、如果“衍生卡号”是数据列列，不希望用户手工修改此列，可以将此列锁定：

http://www.foxtable.com/help/topics/0039.htm

3、我提供的是固定长度的解决方案，如果长度不固定，还是用数据列+代码解决。

随便用户怎么改，改了还回来，一个事件搞定：

 

If e.DataCol.Name = "银行卡号" Then '如果更改的是银行卡号列
    Dim S As String = e.DataRow("银行卡号")
    If e.DataRow.IsNull("银行卡号") = False Then '衍生卡号是否为空
        For i As Integer = 0 To  e.DataRow("银行卡号").Length \ 5 - 1
            s = s.Insert(5+5*i+i," ")
        Next
        e.DataRow("衍生卡号") = s
    End If
End If
If e.DataCol.Name = "衍生卡号" Then
    Dim dr As DataRow = e.DataRow
    DataTables("银行卡号").DataCols("银行卡号").RaiseDataColChanged(dr)
End If

这样完善一点：

If e.DataCol.Name = "银行卡号" Then '如果更改的是银行卡号列
    Dim S As String = e.DataRow("银行卡号")
    If e.DataRow.IsNull("银行卡号") = False Then '衍生卡号是否为空
        For i As Integer = 0 To  e.DataRow("银行卡号").Length \ 5 - 1
            s = s.Insert(5+5*i+i," ")
        Next
        e.DataRow("衍生卡号") = s
    Else
        e.DataRow("衍生卡号") = Nothing
    End If
End If
If e.DataCol.Name = "衍生卡号" Then
    Dim dr As DataRow = e.DataRow
    DataTables("银行卡号").DataCols("银行卡号").RaiseDataColChanged(dr)
End If

 

下面是您的文件：

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:银行卡号.table

谢谢

但是我用don给的放在表属性里面怎么调试不好用

 

谢谢。

这个我在么调试都不好用

坐车上了才发现楼主需要4位一组，那就请自己将代码里面的5改为4，这里的两个数字可为任意数（您的要求间隔位数）

我这就一列，直接就是银行卡号，没有衍生的号码？代码改如何修改

 

当前字段的旧值替换掉空值再作上述外理，再写入当前字段，注意死循环问题！