主题：求助;关于时间.谢谢解答

看例子 自定义样式设置了一个"2天报警" 样式

还款日期不能用表达式列,应该用DataColChanged事件:

If e.DataCol.Name="刷卡日期" Then
CurrentTable.Current("还款日期")=CurrentTable.Current("刷卡日期").AddDays(20)
End If

显示红色用DrawCell事件

If e.Col.Name ="还款日期" Then
    If e.Row.IsNull(e.Col.Name) = False '且该列已经输入内容
        If Date.Today>=e.Row(e.Col.Name).AddDays(-2)  And Date.Today<=e.Row(e.Col.Name) Then '如果该列的值小于2
            e.Style = "2天报警" '那么用"2天报警"样式绘制单元格
        End If
    End If
End If