主题：请教字符串分拆，一列分成两列

字符列“地址电话”包含地址和电话，中间用空格相隔，想通过代码得出“地址”和“电话”两列。下面代码出现错误，请老师指导

If e.DataCol.Name = "地址电话" Then '是地址电话发生变化吗?

    If e.DataRow.IsNull("地址电话") Then '地址电话是否为空

        e.DataRow("地址") = Nothing '如果为空,则清除地址

        e.DataRow("电话") = Nothing '如果为空,则电话

    Else

        Dim dr As DataRow = e.DataRow

        Dim Tel As String = e.DataRow("地址电话")

        Dim Parts() As String = Tel.Split(" ")

        dr("地址") = Parts(0)) '否则从地址电话列中提取地址

        dr("电话") = Parts(1)) '否则从地址电话列中提取电话

    End If

End If