以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助;关于时间.谢谢解答  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=20885)

--  作者:初学者1
--  发布时间:2012/6/21 20:20:00
--  求助;关于时间.谢谢解答

例如我想信用卡的刷卡计入和还款提醒.

      如:第一列设为刷卡日期

          第二列设为还款日期,(注;还款日期要用表达式,即输入刷卡日期后,还款日期这一列要自动显示还款日期,还款的天数为20天.要在两天前用红色字体提醒.还款后一天自动返回原字体)


--  作者:sloyy
--  发布时间:2012/6/22 3:23:00
--  

看例子 自定义样式设置了一个"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

[此贴子已经被作者于2012-6-22 3:33:29编辑过]

--  作者:初学者1
--  发布时间:2012/6/22 9:02:00
--  

谢谢


--  作者:dp1688
--  发布时间:2012/9/26 22:33:00
--  
怎么用用DataColChanged事件啊?这些代码应该写到哪儿?
--  作者:czy
--  发布时间:2012/9/26 23:14:00
--  

你得先看看帮助啊。

 

http://www.foxtable.com/help/topics/0011.htm