主题：新人再次求教－顺序查找的问题－2

那这样，我在泵送明细表中的泵送编号后面加一列[辅]，当辅列为空时，我输入结算日期和泵车编号，然后那几列中输出，符合这个条件的第一个值，当辅列为1时，输出符合这个条件的最后一个值，您看可以不这样，如果可以请你帮我编写下

 

不明白你的用意。如果重复的值有5行，你希望如何处理？你只需要第一行和最后一行？

 

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

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

 

 

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

点击浏览该文件:多条件跨表查找及统计－20190226.rar

此主题相关图片如下：微信截图_20190226151256.png

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

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

甜版主，您写的这个如果符合条件的少于3行的就查找不出来了，比如20180101的92

修改datacolchanged事件代码

 

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("运输名称") Then
                    flag = False
                    Exit For
                End If
            Next
            If flag Then
                e.DataRow("销档") = cdr("销档")
                e.DataRow("运输名称") = cdr("运输名称")
                e.DataRow("销售名称") = cdr("销售名称")
            End If
        Next
End Select
Select Case e.DataCol.name
    Case "结算日期","销档","泵车编号","运输名称","销售名称"
        Dim Filter As String = "结算日期='" & e.DataRow("结算日期") & "' and 销档='" & e.DataRow("销档") & "' and 泵车编号='" & e.DataRow("泵车编号") & "' and 运输名称='" & e.DataRow("运输名称") & "' and 销售名称='" & e.DataRow("销售名称") & "'"
        e.DataRow("销售总量") = DataTables("明细根表").Compute("Sum(销售方量)", Filter)
End Select

完美解决，谢谢各位版主的大力帮助，对FT的学习兴趣越来越大了，再次感谢！！

甜版主，我想问如果我就是弄一个日历，并且列一是日期，列二和列三是员工出差的地点。

请提供具体实例说明