以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  查找多列相同行 自动填入 指定数据  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106837)
--  作者：djylsf
--  发布时间：2017/9/16 12:23:00
--  查找多列相同行 自动填入 指定数据
共四列，第一列入库编号，第二列产品名称，第三列产品批号，第四列检验提示。

希望每批产品第1次入库时，检验提示列自动填入"首次入库，请送检”；同一批产品以后（第2、3……n次）入库时检验提示列自动填入”已检，首次入库编号为*****“

请各位老师看一下，如何实现，谢谢！
--  作者：有点蓝
--  发布时间：2017/9/16 14:13:00
--  
参考：

Select Case e.DataCol.Name
    Case "入库编号","产品名称","产品批号"
        Dim cnt As Integer = e.DataTable.Compute("Count(产品批号)","入库编号=\'" & e.DataRow("入库编号") & "\' And 产品名称=\'" & e.DataRow("产品名称") & "\' and 产品批号=\'" & e.DataRow("产品批号") & "\' and [_Identify] <= " & e.DataRow("_Identify"))
        e.DataRow("检验提示") = "第" & cnt & "次"
End Select
--  作者：djylsf
--  发布时间：2017/9/17 9:38:00
--  
谢谢