主题：当系统日期大于A列的日期时，B列显示未过期，小于则显示过期

狐爸，请问下，当系统日期大于A列的日期时，B列显示未过期，小于则显示过期，B列会随着系统日期的变动而变动，假如我更改了系统日期，B列会自行判断而变动，之前的代码试了下更改系统日期后，B列没任何反应，只会随着A列的变动而变动，我是想让会随着系统的日期变动而变动，代码能从新帮我写下吗？谢谢！

老师，这代码放哪个事件里，谢谢！

Select Case e.DataCol.Name     Case "A列"         If e.DataRow("A列") > Date.Today() Then             e.DataRow("B列") = "未过期"         End If End Select

老师，上面这段代码如果反过来，是如果系统时间大于A列时间，则B列显示出售，如果系统时间小于A列，则B列显示未出售，就是说B列的显示会随着系统时间大于或小于A列的时间而变动，谢谢

表的DataColChanged事件代码： Select Case e.DataCol.Name     Case "A列"         If e.DataRow("A列") > Date.Today() Then             e.DataRow("B列") = "未出售" else     e.DataRow("B列") = "出售"         End If End Select 对不起，老师，可能是我没说清楚，我是想让B列会随着系统日期的变动而变动，假如我更改了系统日期，B列会自行判断而变动，上面的代码试了下更改系统日期后，B列没任何反应，只会随着A列日期的变动而变动，我是想让会随着系统的日期变动而变动，就是把我把电脑的系统日期改了后，B列会自动改成出售，或者未出售，谢谢！

不知道你所说的逻辑是什么　？为什么要这么做呢？

比如说一个产品A列过期时间是10月1号，这时系统时间是9月25日，B列显示未过期，但是随着时间一天天过去，系统时间已经变成10月2日了，但B列不能识别系统时间已更改，还是写着未过期，

如果只是显示，可以写到drawcell事件

 

Select Case e.Col.Name
    Case "B列"
        If e.Row("A列") > Date.Today() Then
            e.Text = "未出售"
        Else
            e.Text = "出售"
        End If
End Select