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
加好友 
发短信
Post By：2018/11/15 22:22:00 [只看该作者]
