时间提醒错误 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 时间提醒错误

共有2727人关注过本帖树形打印复制链接主题：时间提醒错误

宁老师SQE

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：108 积分：824 威望：0 精华：0 注册：2018/11/23 15:18:00

时间提醒错误 发帖心情

Post By：2018/12/2 10:42:00 [只看该作者]

此主题相关图片如下：360截图16530713426273.png

Select Case e.DataCol.Name

Case "截止日期","延期天数"

If e.DataRow.IsNull("截止时间") Then

e.DataRow("最终时间") = Nothing

Else

e.DataRow("最终时间") = e.DataRow("截止时间").AddDays(e.DataRow("延期天数"))

End If

End Select

写这个代码，如果延期天数是空值的话为什么不好使，怎么改写呢

Dim dta As Date = Date.Today.AddDays(10)

Dim dra As DataRow = DataTables("新产品开发阶段表").Find("最终时间 <= #" & dta & "#" And "[通知检验] Is False ")

If dra IsNot Nothing Then

MessageBox.Show("有新开发产品即将到期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

Tables("新产品开发阶段表").Filter = "最终时间 <= #" & dta & "#"

MainTable = Tables("新产品开发阶段表")

End If

在项目属性写这个代码也会提醒我错误呢
图片点击可在新窗口打开查看

此主题相关图片如下：360截图16560311131140.png

宁老师SQE

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：108 积分：824 威望：0 精华：0 注册：2018/11/23 15:18:00

Post By：2018/12/2 16:15:00 [只看该作者]

If e.col.Name = "最终时间" Then
If e.Row.IsNull("最终时间") = False
If e.Row("最终时间") < Date.Today.AddDays(10) andalso "[开发关闭] Is False "Then

            e.Style = "到期"
        End If
    End If
End If

如果表提醒日期已经处理完了不想在出现表的样式这样写可以吗应该在表的DrawCell事件代码改写代码吗

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/12/2 21:31:00 [只看该作者]

1、为空值，也会执行代码，请认真测试；

2、

Dim dra As DataRow = DataTables("新产品开发阶段表").Find("最终时间 <= #" & dta & "#" And "[通知检验] Is False ")

改成

Dim dra As DataRow = DataTables("新产品开发阶段表").Find("最终时间 <= #" & dta & "# And [通知检验] Is False ")

3、代码改成

If e.Col.Name = "最终时间" Then
    If e.Row.IsNull("最终时间") = False
        If e.Row("最终时间") < Date.Today.AddDays(10) AndAlso e.Row("开发关闭") = True Then
            e.Style = "到期"
        End If
    End If
End If

宁老师SQE

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：108 积分：824 威望：0 精华：0 注册：2018/11/23 15:18:00

Post By：2018/12/3 10:06:00 [只看该作者]

此主题相关图片如下：360截图16651231100107108.png

宁老师SQE

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：108 积分：824 威望：0 精华：0 注册：2018/11/23 15:18:00

Post By：2018/12/3 10:08:00 [只看该作者]

此主题相关图片如下：360截图164912215410180.png

按照老师给的代码写也没有看见输出样式而且延期天数是空值的话只有在此列重置后才能执行代码能不能直接就计算呢还望老师指教

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/12/3 10:11:00 [只看该作者]

改成

If e.Row("最终时间") < Date.Today.AddDays(10) AndAlso e.Row("开发关闭") = false Then

你输入【截止日期】后，就会自动计算的，不可能存在你这种问题，实例发上来测试

宁老师SQE

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：108 积分：824 威望：0 精华：0 注册：2018/11/23 15:18:00

Post By：2018/12/3 11:33:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:丹东恒锐.table

做别的提醒好使在这个表就不好使了

有点甜

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/12/3 13:13:00 [只看该作者]

你没有添加样式

http://www.foxtable.com/webhelp/scr/0656.htm

宁老师SQE

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：108 积分：824 威望：0 精华：0 注册：2018/11/23 15:18:00

Post By：2018/12/3 16:56:00 [只看该作者]

改成

If e.Row("最终时间") < Date.Today.AddDays(10) AndAlso e.Row("开发关闭") = false Then

你输入【截止日期】后，就会自动计算的，不可能存在你这种问题，实例发上来测试

截止日期能否帮助调试一下我试了确实不好使啊

有点甜

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/12/3 16:59:00 [只看该作者]

Select Case e.DataCol.Name
    Case "截止时间","延期天数"
        If e.DataRow.IsNull("截止时间") Then
            e.DataRow("最终时间") = Nothing
        Else
            e.DataRow("最终时间") = e.DataRow("截止时间").AddDays(e.DataRow("延期天数"))
        End If
End Select

下一主题 >> << 上一主题

主题：时间提醒错误