以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 日期问题 ，if语句问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91299)
--  作者：积水成渊
--  发布时间：2016/10/7 11:20:00
--  [求助] 日期问题 ，if语句问题
 表中现在有两个列，分别为 消费时间和就餐时间，现在消费时间有数据为5:00到21:00之间的时间，而就餐时间列数据为空。我现在要实现的功能是将判断消费时间的时间段，自动判断如果5:00到11:00为早餐，并且把“早餐”填到就餐时间列中，自动判断如果11:00到17:00为中餐，并且把“中餐”填到就餐时间列中，自动判断如果17:00到21:00为晚餐，并且把“晚餐”填到就餐时间列中。求大神指导。
--  作者：有点蓝
--  发布时间：2016/10/7 11:40:00
--  
DataColChanged事件

Select Case e.DataCol.Name
    Case "消费时间"
        If e.NewValue Is Nothing Then
            e.DataRow("就餐时间") = Nothing
        Else
            Dim d As Date = e.NewValue
            If d.Hour>= 5 AndAlso d.Hour < 11 Then
                e.DataRow("就餐时间") = "早餐"
            ElseIf d.Hour>= 11 AndAlso d.Hour < 17 Then
                e.DataRow("就餐时间") = "中餐"
            Else
                e.DataRow("就餐时间") = "晚餐"
            End If
        End If
End Select
--  作者：积水成渊
--  发布时间：2016/10/7 14:02:00
--  
 非常感谢，但是离的功能还是差点，您的代码是输入一个日期，然后在就餐时间内生成对应的早中晚餐，而我想要实现的功能是，不需要输入日期，因为消费时间列都是有日期的，只要去判断消费时间的时间段，自动在就餐时间列生成中晚餐就行了。您给我代码，我先加一条消费时间的记录，然后在重置列也能实现我想要的功能，但是总觉的多了那么几步操作，还是要感谢大神。
--  作者：有点蓝
--  发布时间：2016/10/7 14:09:00
--  
新增加的记录会自动更新，无需重置。

已有的记录重置一次就可以。就算是写到按钮代码，也一样要点击按钮，和点击重置菜单有区别吗。又多了哪几步操作呢
--  作者：积水成渊
--  发布时间：2016/10/7 14:44:00
--  
明白了，再次感谢 ！！