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

   Else

        Dim dr As DataRow = e.DataRow

        Dim Tel As String = dr("地址电话")

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

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

if Parts.length > 1

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

end if

    End If

End If