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

format()

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

 

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

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

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