以文本方式查看主题

-  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=141979)

--  作者:初心不改再说未来
--  发布时间:2019/10/15 16:43:00
--  老师如何根据时间判断当前行内容?
某列有4个默认选项:ABCD  其中ABC为手选,D需要根据另外两列时间计算:

如果当前时间<单元格时间1 则显示   未销售
如果   单元格时间1>当前时间>单元格时间2   则显示  销售中
如果   当前时间》单元格时间2  则显示  已过期


这个代码怎么写啊  谢谢老师

--  作者:有点蓝
--  发布时间:2019/10/15 16:45:00
--  
没看懂,截图或者举例说明
--  作者:初心不改再说未来
--  发布时间:2019/10/17 19:49:00
--  
已上传实例
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb


--  作者:有点酸
--  发布时间:2019/10/17 21:31:00
--  
DataColChanged事件:

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.name
    Case "进货时间","销售时间"
        If dr.IsNull("进货时间") OrElse dr.IsNull("销售时间") Then
            dr("状态") = Nothing
        ElseIf Date.Today < dr("进货时间") Then
            dr("状态") = "尚未开始销售"
        ElseIf Date.Today > dr("销售时间") Then
            dr("状态") = "销售完毕"
        Else
            dr("状态") = "销售中"
        End If
End Select