| 以文本方式查看主题 - 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=104310) |
| -- 作者：jyh7081 -- 发布时间：2017/7/27 10:45:00 -- [求助]到期天数 有个[应结案日期]，和[到期天数] （整数列），[到期天数] = [应结案日期] - 今天的日期, 应该写在哪里？
e.DataRow("到期天数") = e.DataRow("应结案日期") - Date.Today 在表的DataColChanged里写不了 |
| -- 作者：有点甜 -- 发布时间：2017/7/27 11:53:00 -- e.DataRow("到期天数") = (Cdate(e.DataRow("应结案日期")) - Date.Today).TotalDays |
| -- 作者：jyh7081 -- 发布时间：2017/7/27 21:04:00 -- DataColChanged中加黑加下划线的这句代码，运行没有问题，但是重启项目后，需要重置一下列，才能显示“结案提醒”列的值，是什么原因？ Select Case e.DataCol.Name \'结案到期提醒 Case "立案日期","应结案日期","延期时间","结案日期","结案提醒" If e.DataRow.IsNull("立案日期") Then e.DataRow("应结案日期") = Nothing ElseIf e.DataRow("审判程序") = "一审" Then e.DataRow("应结案日期") = e.DataRow("立案日期").AddDays(e.DataRow("延期时间")).AddDays(180) If e.DataRow.IsNull("结案日期") = True AndAlso e.DataRow("应结案日期") >= Date.Today Then \'未结案,未到期 e.DataRow("结案提醒") = (Cdate(e.DataRow("应结案日期")) - Date.Today).TotalDays \'提醒到期天数 Else e.DataRow("结案提醒") = Nothing End If End If End Select |
| -- 作者：有点甜 -- 发布时间：2017/7/27 22:22:00 -- 这个原因，你弄成数据列即可
http://www.foxtable.com/webhelp/scr/1380.htm
|