- 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=178632)
-- 发布时间：2022/7/13 8:37:00
-- [求助]获取最后一次检测时间
If e.DataCol.Name = "身份证号" Then \'发生变化的是产品列.
\'则累计订单表中同名产品总的销售量,然后赋值给变动行的数量列
e.DataRow("记录数") = DataTables("A20220712").Compute("count(身份证号)","[身份证号] = \'" & e.NewValue & "\'")
End If
上述代码可以获得参检次数，如何修改如代码获取最后一次参检时间，求老师指教！谢谢！
If e.DataCol.Name = "身份证号" Then \'发生变化的是产品编号吗?
\'在产品表找出该产品
Dim dr As DataRow
dr = DataTables("A20220712").Find("身份证号 = \'" & e.DataRow("身份证号") & "\' , "检查时间 Desc"" )
If dr IsNot Nothing \'如果找到, 则设置各列内容
e.DataRow("核酸检测时间")= dr("检测时间")
e.DataRow("采集时间")= dr("采集时间")
End If
End If
-- 发布时间：2022/7/13 8:47:00
--
dr = DataTables("A20220712").Find("身份证号 = \'" & e.DataRow("身份证号") & "\' , "检测时间 Desc"" )
-- 发布时间：2022/7/13 8:53:00
-- 回复：（有点蓝）dr = DataTables("A20220712").Find(...
-- 发布时间：2022/7/13 8:59:00
--
dr = DataTables("A20220712").Find("身份证号 = \'" & e.DataRow("身份证号") & "\'” , "检测时间 Desc" )
[此贴子已经被作者于2022/7/13 8:59:34编辑过]
-- 发布时间：2022/7/13 9:29:00
-- 回复：（cd_tdh）dr = DataTables("A20220712").Find(...
搞定，谢谢老师！