主题：数据的分列

 狐表暂时没有这种功能！需要自己编码完成......

感觉用比价麻烦，还是做了个小例子。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目_3.table

 哦哦，原来是这样。希望在一列里输入，然后自动填充到各列。

 If e.DataCol.Name = "拆分列" Then
    Dim val As String = e.DataRow(e.DataCol.Name)
    Dim ary() As String = val.Split("_")
    Dim count As Integer = 1
    If count > ary.Length Then
        Return
    End If
    e.DataRow("列1") = ary(0)
    count = count + 1
    If count > ary.Length Then
        Return
    End If
    e.DataRow("列2") = ary(1)
    count = count + 1

    '以此类推
End If