主题：求助：代码报错 求纠正 主要是字符值得拆分

求助：下列代码运行 弹出提示"调用的目标发生了异常"  然后无法正常取消和关闭项目了。

If e.DataRow("标题") = "同步录音录像受理登记表" Then
    If e.NewValue Is Nothing Then
        e.DataRow("标题") = Nothing
        e.DataRow("来源") = Nothing
        e.DataRow("责任人") = Nothing
        e.DataRow("文件编号") = Nothing
    Else
        Dim dr As DataRow
        dr = DataTables("同录台账").Find("[受理编号] = '" &  e.DataRow("案卷编号") & "'")
        If dr IsNot Nothing
            'e.DataRow("标题") = dr("标题")
            e.DataRow("来源") = dr("办案部门")
            'e.DataRow("责任人") = dr("责任人")
            e.DataRow("文件编号") = dr("受理登记号")
           
        End If
    End If
End If

下面代码报错 求纠正 

Select Case e.DataCol.name
Case  "文件编号"
    If e.DataRow.Isnull("文件编号")= False Then   如果文件编号不为空
        Dim Tel As String = e.DataRow("文件编号")   定义文件编号值为字符
        Dim Parts() As String = Tel.Split(")")
        e.DataRow("材料编号_字号") = Parts(0)
        e.DataRow("材料编号_文号") = Parts(1)
    Else
        e.DataRow("材料编号_字号") = "无"
        e.DataRow("材料编号_文号") = "无"
    End If
End Select