主题：如何折分一列的字符

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