主题：有空查找－3

照抄

Select Case e.DataCol.name
    Case "销档","泵车信息_车型"
        Dim drs1 = e.DataTable.Select("销档='" & e.DataRow("销档") & "' and 泵车信息_车型='" & e.DataRow("泵车信息_车型") & "'")
        Dim drs = DataTables("销售档案").Select("销档编号='" & e.DataRow("销档") & "' and 泵送费用_车型='" & e.DataRow("泵车信息_车型") & "'")
        For Each cdr As DataRow In drs
            Dim flag As Boolean = True
            For Each dr As DataRow In drs1
                If cdr("泵送费用_时段") = dr("单价_时段") AndAlso cdr("泵送费用_位置") = dr("单价_位置") Then
                    flag = False
                    Exit For
                End If
            Next
            If flag Then
                e.DataRow("单价_价") = cdr("泵送费用_单价")
                e.DataRow("台班方量") = cdr("泵送费用_台班方量")
                e.DataRow("单价_时段") = cdr("泵送费用_时段")
                e.DataRow("单价_位置") = cdr("泵送费用_位置")

            End If
        Next
End Select

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=130873&authorid=0&page=0&star=2

认认真真看代码，认认真真测试。

删除你之前的数据，然后输入 销档和车型。