以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  提取数值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90912)

--  作者:josh
--  发布时间:2016/9/24 23:27:00
--  提取数值
foxtable的窗口中如何从某一列的数值中提取数分数值,如从身份证号码中提取后6位数
--  作者:sjx71
--  发布时间:2016/9/25 8:27:00
--  
可以在对应表的 DataColChanged 事件中写入以下代码,就可以实现从身份证号码中提取后6位数

Select Case e.DataCol.Name
    Case "身份证号码"
        Dim dr As DataRow = e.DataRow
        Dim s As String = dr("身份证号码")
        If s.length = 18 Then
            dr("身份证后6位") = s.Substring(12)
        ElseIf s.length = 15 then
            dr("身份证后6位") = s.Substring(9)
        End If
End Select