以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  判断数据是否为过期产品  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101884)
--  作者：peibaomin
--  发布时间：2017/6/9 1:05:00
--  判断数据是否为过期产品

怎样实现在打开程序时批量判断表中的所有数据的“是否过期日期列”如果已过期就将数据的“已过期列”标记上
--  作者：有点色
--  发布时间：2017/6/9 8:17:00
--  

AfterOpenProject事件

 

For Each dr As DataRow In DataTables("表A").DataRows
    If dr.Isnull("第一列") = False Then
        dr("第二列") = True
    Else
        dr("第二列") = False
    End If
Next

[此贴子已经被作者于2017/6/9 8:16:55编辑过]
--  作者：peibaomin
--  发布时间：2017/6/9 13:29:00
--  
是否过期日期列是日期列，是否过期是布尔变量。意思是如果日期列中的日期大于当前的日期为产品已经属于过期产品，是否过期列标记为过期，否则为产品属于有效期，不标记
[此贴子已经被作者于2017/6/9 13:37:34编辑过]
--  作者：有点色
--  发布时间：2017/6/9 14:35:00
--  
For Each dr As DataRow In DataTables("表A").DataRows
    If dr("过期日期") < Date.Today Then
        dr("是否过期") = True
    Else
        dr("是否过期") = False
    End If
Next