主题：表格函数问题

DataColChanged事件

Select Case e.DataCol.Name
    Case "第一列"
        If e.DataRow.IsNull("第一列") Then
            e.DataRow("第二列") = Nothing
            e.DataRow("第三列") = Nothing
        Else
            Dim ary() As String = cstr(e.DataRow("第一列")).split(".")
            If ary.length = 2 Then
                e.DataRow("第二列") = ary(0)
                e.DataRow("第三列") = ary(1)
            Else
                e.DataRow("第二列") = ary(0)
                e.DataRow("第三列") = nothing
            End If
        End If
End Select