主题：怎样某一列的用逗号分开内容分解到其他列

datacolChanged事件

If e.DataCol.Name = "第一列" Then
    Dim cs() As String = {"第二列", "第四列", "第七列"}
    dim ary() as string = e.datarow("第一列").split(",")
    For i As Integer = 0 To cs.length-1
        If i>ary.length-1 Then
            e.DataRow(cs(i)) = Nothing
        Else
            e.DataRow(cs(i)) = ary(i)
        End If
    Next
End If