主题：异常还是什么

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

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
 导入数据时 (导入到当前表时地点都是空的) 客户地点找是否有相同的客户,没有则把当前表的客户与地点赋值给客户地点表 ,有则把客户地点表的地点赋给相应客户 同时在当前表变更地点时 客户地点也跟着变更

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2_201511050940.zip

 

就这种情况 没反应 也没报错 运费与点费没有自动赋值

在项目中实施了 还是一样 前天未改 一样可以啊

 

我没改过数据 同数据重新加载 我再分析一下

Select Case e.DataCol.name
    Case "司机", "车牌", "出车日期","项目","城市","客户","车型","地点"

我改成了这样 不改任何数据 就是导入 删除 再导入 导入时 地点栏都是空的 不会自动找"客户地点"匹配客户得到地点 没有的客户也不会在客户地点表中新增 ,我已经在客户地点表事件中加如代码

If e.DataCol.Name = "地点"
    Dim Filter As String = "[客户] = '" & e.DataRow("客户") & "'"
    Dim drs As List(Of DataRow) = DataTables("应付款项").Select(Filter)
    For Each dr As DataRow In drs
        dr("地点") = e.DataRow("地点")
    Next
End If

就是只能重置之后 应付款项的地点才能在客户地点取得 不是一开始导入就就自动加载 

我就是有这个疑问 我上传的实例 在导入少量数据时 会自动加载 多的时候就不会 那就加入重置代码