以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何折分一列的字符  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=82114)
--  作者：二水亚日
--  发布时间：2016/3/11 16:58:00
--  如何折分一列的字符
如某列为52*3要拆分为两个数值，为52、3
--  作者：大红袍
--  发布时间：2016/3/11 18:14:00
--  

datacolChanged事件

 

If e.DataCol.name = "第一列" Then
    Dim cs() As String = {"第二列", "第三列", "第四列"}
    Dim ary() As String = e.NewValue.split("*")
    For i As Integer = 0 To ary.length - 1
        e.DataRow(cs(i)) = ary(i)
    Next
End If