以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]表内条件比较并作标记(已解决)  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=68330)

--  作者:yyzlxc
--  发布时间:2015/5/14 22:00:00
--  [求助]表内条件比较并作标记(已解决)

比较同一员工编号的不同设备编号的最大时间,当C000大于R000,在标记列的最大时间的C00行,作标记“1”。

如何用按钮代码,实现上述功能,请各位老师指教,谢谢!!

如图所示:


图片点击可在新窗口打开查看此主题相关图片如下:捕获6.jpg
图片点击可在新窗口打开查看



 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目4.foxdb


[此贴子已经被作者于2015/5/14 22:35:11编辑过]

--  作者:大红袍
--  发布时间:2015/5/14 22:04:00
--  
当C000大于R000 是什么意思?怎么比较
--  作者:yyzlxc
--  发布时间:2015/5/14 22:07:00
--  
当C000的时间大于R00的时间。谢谢老师的回复。
--  作者:大红袍
--  发布时间:2015/5/14 22:20:00
--  

For Each ygbh As String In DataTables("门禁查询").GetValues("员工编号")
    Dim r As Date = DataTables("门禁查询").Compute("max(日期时间)", "员工编号 = \'" & ygbh & "\' and 设备编号 = \'R000\'")
    Dim c As DataRow = DataTables("门禁查询").Find("员工编号 = \'" & ygbh & "\' and 设备编号 = \'C000\'", "日期时间 desc")

    If c IsNot Nothing AndAlso c("日期时间") > r Then
        c("标记") = 1
    End If
Next


--  作者:yyzlxc
--  发布时间:2015/5/14 22:35:00
--  
谢谢大红袍老师的指教,完全符合要实现的效果,再次衷心感谢!!