主题：[求助]这个功能怎么实现？

 1、“企业流水表”中的“企业名称”不在“企业客户经理表”时，把这个“企业名称”复制到“企业客户经理表”中，客户经理手工在“企业客户经理表”中填入“客户经理”

2、“企业流水表”中的“客户经理”从“企业客户经理表”中提取相应的“客户经理”填入。

 

以上功能代码如下：

Select Case  e.DataCol.Name
    Case  "企业名称","扎差","余额"
        Dim  dr As  DataRow
        Dim  mr As  DataRow = e.DataRow
        Dim  drs As  List(of DataRow)
        dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") &  " And [企业名称] = '" &  mr("企业名称") &  "'", "[_SortKey] Desc")
        If dr Is Nothing Then
            mr("扎差") = mr("余额")
            dr = mr
        End If
        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") &  " And [企业名称] = '" &  dr("企业名称") &  "'", "[日期]")
        For  i As  Integer = 1 To drs.Count - 1
            drs(i)("扎差") = drs(i)("余额") - drs(i-1)("余额")
        Next
        If e.DataCol.Name = "企业名称" Then
            DataTables("企业客户经理表").DataCols("企业名称").RaiseDataColChanged("企业名称 = '" & e.DataRow("企业名称") & "'")
            e.DataRow("客户经理")=DataTables("企业客户经理表").("客户经理","企业名称"=e.DataRow("企业名称"))
        End If
       
End Select

 

 

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

点击浏览该文件:流水监测.table

 提示版本高，无法打开

 

可以了 ，谢谢

 

 Select Case  e.DataCol.Name
    Case  "企业名称","扎差","余额"
        Dim  dr As  DataRow
        Dim  mr As  DataRow = e.DataRow
        Dim  drs As  List(of DataRow)
        dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") &  " And [企业名称] = '" &  mr("企业名称") &  "'", "[_SortKey] Desc")
        If dr Is Nothing Then
            mr("扎差") = mr("余额")
            dr = mr
        End If
        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") &  " And [企业名称] = '" &  dr("企业名称") &  "'", "[日期]")
        For  i As  Integer = 1 To drs.Count - 1
            drs(i)("扎差") = drs(i)("余额") - drs(i-1)("余额")
        Next
End Select

 

 

以上代码用一夜连续几天的数据测试计算扎差得不到希望的数据，什么原因？

 

此主题相关图片如下：扎差计算不正确.png