Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]获取最后一次检测时间


  共有5978人关注过本帖树形打印复制链接

主题：[求助]获取最后一次检测时间
帅哥哟，离线，有人找我吗？
jygyyl
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：463 积分：4163 威望：0 精华：0 注册：2011/4/5 16:54:00 		[求助]获取最后一次检测时间  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
jygyyl
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：463 积分：4163 威望：0 精华：0 注册：2011/4/5 16:54:00 		回复：（有点蓝）dr = DataTables("A20220712").Find(...  发帖心情 Post By：2022/7/13 8:53:00 [显示全部帖子]

图片点击可在新窗口打开查看

 回到顶部
帅哥哟，离线，有人找我吗？
jygyyl
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：463 积分：4163 威望：0 精华：0 注册：2011/4/5 16:54:00 		回复：（cd_tdh）dr = DataTables("A20220712").Find(...  发帖心情 Post By：2022/7/13 9:29:00 [显示全部帖子]

搞定，谢谢老师！

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 5 次数据查询