专家坐堂-[求助]单元格绘制的背景色丢失，怎样刷新重新显示Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]单元格绘制的背景色丢失，怎样刷新重新显示  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=134020)

--  作者：湛江智
--  发布时间：2019/4/25 15:11:00
--  [求助]单元格绘制的背景色丢失，怎样刷新重新显示
如题，求助

--  作者：有点蓝
--  发布时间：2019/4/25 15:14:00
--
Tables("表A").Refresh

--  作者：湛江智
--  发布时间：2019/4/25 15:30:00
--  回复：（有点蓝）Tables("表A").Refresh

上面报错后，单元格绘制的颜色丢失

坛主，上楼代码不能把单元格绘制的颜色刷显示出来

[此贴子已经被作者于2019/4/25 15:43:30编辑过]

--  作者：有点蓝
--  发布时间：2019/4/25 15:41:00
--
既然报错，就需要把错误改正

--  作者：湛江智
--  发布时间：2019/4/25 15:43:00
--  回复：（有点蓝）既然报错，就需要把错误改正
.NET Framework 版本：2.0.50727.5420
Foxtable 版本：2018.7.9.1
错误所在事件：全局表事件,DrawCell
详细错误信息：
调用的目标发生了异常。
指定的参数已超出有效值的范围。
参数名: Cannot find column \'_Identify\'.

行切换时，报错见上面，什么原因？怎么修复？求助

需要重新启动项目，单元格绘制的颜色才显示，可以不重新启动，刷新显示嘛？
代码找不到问题

[此贴子已经被作者于2019/4/25 15:45:58编辑过]

--  作者：有点蓝
--  发布时间：2019/4/25 15:57:00
--
没有_Identify这个列，检查代码
[此贴子已经被作者于2019/4/25 15:56:39编辑过]

--  作者：湛江智
--  发布时间：2019/4/25 16:30:00
--  回复：（有点蓝）没有_Identify这个列，检查代码[al...
辛苦坛主看看是否下面代码是否有问题了

报错如下：

.NET Framework 版本：2.0.50727.5420
Foxtable 版本：2018.7.9.1
错误所在事件：表，项目2全周期，DrawCell
详细错误信息：
调用的目标发生了异常。
从字符串“计划完成时间”到类型“Date”的转换无效。

代码如下：

Dim r As Row = e.Row
If e.Col.Name = "项目获取开发意向确定_计划完成时间" And e.Row.IsNull("项目获取开发意向确定_计划完成时间") = False Then
    Dim dt As Date = r("项目获取开发意向确定_计划完成时间")
    Dim n As Integer = (dt - Date.Today).TotalDays
    If n < 0 Then \'如果已经过期
        e.Style = "已过期"
    ElseIf 0 <= n And n <= 10 Then \'如果已经过期
        e.Style = "今天到期"
    ElseIf 10 <= n And n <= 20 Then \'如果已经过期
        e.Style = "明天到期"
    ElseIf 100 <= n And n <= 110 Then \'如果已经过期
        e.Style = "120"
    ElseIf 110 <= n And n <= 120 Then \'如果已经过期
        e.Style = "130"
    ElseIf 120 <= n And n <= 130 Then \'如果已经过期
        e.Style = "140"
    ElseIf 130 <= n And n <= 140 Then \'如果已经过期
        e.Style = "150"
    End If
End If

上面日期列不为空，这样写有问题嘛？

如果不是上面代码问题，如果先暂停，绘制所有单元格，代码怎么写呢？
我想先暂停单元格绘制，新增行操作后，再重新打开绘制所有单元格

[此贴子已经被作者于2019/4/25 16:44:00编辑过]

--  作者：有点蓝
--  发布时间：2019/4/25 16:53:00
--
If e.Col.Name = "项目获取开发意向确定_计划完成时间" Andalso e.Row.IsNull("项目获取开发意向确定_计划完成时间") = False  Then