以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  字符串序列怎么设计  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75305)
--  作者：凋零
--  发布时间：2015/10/4 15:04:00
--  字符串序列怎么设计
老师好,我问下 我在列1里输入的是 1a2b3c4d  我想在列2 中自动显示为 4d3c2b1a 如何实现?  现在输入的数据有400多条了..... 
如  列1输入  12345678
     列2自动  78563412
--  作者：凋零
--  发布时间：2015/10/4 15:05:00
--  
这个列2还不能是表达式的... 我要用他做关联....
--  作者：新福星
--  发布时间：2015/10/5 8:47:00
--  
列2= 列1.SubString(6,2) & 列1.SubString(4,2) & 列1.SubString(2,2) & 列1.SubString(0,2)
--  作者：大红袍
--  发布时间：2015/10/7 12:22:00
--  

DataColChanged事件

 

Select Case e.DataCol.name
    Case "第一列"
        If e.NewValue IsNot Nothing Then
            Dim mc = System.Text.RegularExpressions.Regex.Matches(e.newValue, "[0-9]{1}[a-zA-Z]{1}|[0-9]{1}")
            Dim str As String
            For i As Integer = mc.count - 1 To 0 Step -1
                str &= mc(i).Value
            Next
            e.DataRow("第二列") = str
        End If
End Select