以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  查找最后一条的结束数的语句还是有问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=127525)
--  作者：明天的灵
--  发布时间：2018/11/15 22:22:00
--  查找最后一条的结束数的语句还是有问题
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=127227&replyID=&skin=1
接上次的问题

同一台机器有多班生产，有多条记录，如4#机，2018-11-06 已有二条记录。
现在新增一条 4#机的生产数时，发现找到的还是2018-11-06的第一条 4号机记录的结束数：230，而不是最后一条：399

 Dim dd As  String
            dd = e.DataRow("操作台")
            Dim dr As DataRow
            \'dr =  DataTables("每日工作量").Find ("操作台 = \'" & dd & "\'","操作日期 Desc") \'找出最后一次这个操作台的记录
            dr =  DataTables("每日工作量").Find ("操作台 = \'" & dd & "\' and _sortkey < " & e.DataRow("_sortkey"),"操作日期 Desc") \'找出最后一次这个操作台的记录
            If dr IsNot Nothing Then \'如果找到的话
                MessageBox.Show("已找到上次操作台号")
                e.DataRow("开始数") = dr("结束数")
            Else
                MessageBox.Show("没有找到此操作台的上次记录,初始值为0")
                e.DataRow("开始数") = 0
            End If

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:计件工资1.table
--  作者：有点甜
--  发布时间：2018/11/15 22:52:00
--  

改成比如

 

    dr =  DataTables("每日工作量").Find ("操作台 = \'" & dd & "\' and _sortkey < " & e.DataRow("_sortkey"),"操作日期 Desc, _sortkey desc")

 
--  作者：明天的灵
--  发布时间：2018/11/15 22:57:00
--  
谢谢甜版主！
这个结果是对的，找到了最后一条4#机记录
是不是又增加了一个按记录指针排序的条件？
--  作者：有点甜
--  发布时间：2018/11/15 23:09:00
--  
以下是引用明天的灵在2018/11/15 22:57:00的发言：
谢谢甜版主！
这个结果是对的，找到了最后一条4#机记录
是不是又增加了一个按记录指针排序的条件？

 

是的，日期相同的时候，再按照_sortkey排序
--  作者：明天的灵
--  发布时间：2018/11/15 23:30:00
--  
谢谢！