主题：异常还是什么

昨天还可以的 今天怎么不行了 代码如下:

Select Case e.DataCol.name
    Case "客户"
        Dim dr As DataRow = DataTables("客户地点").Find("[客户] = '" & e.NewValue & "'")
        If dr Is Nothing Then
            dr = DataTables("客户地点").AddNew()
            dr("客户") = e.DataRow("客户")
            dr("地点") = e.DataRow("地点")
        Else
            e.DataRow("地点") = dr("地点")
        End If
    Case "地点"
        Dim dr As DataRow = DataTables("客户地点").Find("客户 = '" & e.DataRow("客户") & "'")
        If dr IsNot Nothing Then
            dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
        End If
End Select
 导入数据时 (导入到当前表时地点都是空的) 客户地点找是否有相同的客户,没有则把当前表的客户与地点赋值给客户地点表 ,有则把客户地点表的地点赋给相应客户 同时在当前表变更地点时 客户地点也跟着变更