以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]拆分，获取点后面的字符  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=100861)
--  作者：whyxd
--  发布时间：2017/5/19 19:28:00
--  [求助]拆分，获取点后面的字符

拆分代码，第一列为代码，如何实现第二列取短代码

短代码为代码最后一个点后面的字符，如果代码中没有点，短代码和代码相同。

例如 代码：01.001      短代码为：001

       代码：01.0a        短代码为：0a

       代码：01.0a.02    短代码为：02

       代码：01             短代码为  ：01
--  作者：有点蓝
--  发布时间：2017/5/19 20:38:00
--  
Dim bm As String = "01.001"
Dim ar() As String = bm.Split(".")
Output.Show(ar(ar.Length- 1))
--  作者：wyz20130512
--  发布时间：2017/5/19 20:41:00
--  
DataColChanged事件代码：

Select Case e.DataCol.Name
    Case "代码"
        Dim s As String = e.DataRow("代码")
        Dim p As Integer = s.LastIndexOf(".")
        If p <> -1 Then
            e.DataRow("短代码") = s.SubString(p + 1)
        Else
            e.DataRow("短代码") = s
        End If
End Select