Foxtable(狐表)用户栏目专家坐堂 → [求助]到期天数


  共有1566人关注过本帖树形打印复制链接

主题:[求助]到期天数

帅哥哟,离线,有人找我吗?
jyh7081
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:962 积分:8505 威望:0 精华:0 注册:2012/10/3 13:25:00
[求助]到期天数  发帖心情 Post By:2017/7/27 10:45:00 [显示全部帖子]

有个[应结案日期],和[到期天数] (整数列),[到期天数] = [应结案日期] - 今天的日期, 应该写在哪里?

 

e.DataRow("到期天数") = e.DataRow("应结案日期") - Date.Today   在表的DataColChanged里写不了


 回到顶部
帅哥哟,离线,有人找我吗?
jyh7081
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:962 积分:8505 威望:0 精华:0 注册:2012/10/3 13:25:00
  发帖心情 Post By: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


 回到顶部