Foxtable(狐表)用户栏目专家坐堂 → [求助]单元格绘制的背景色丢失,怎样刷新重新显示


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

主题:[求助]单元格绘制的背景色丢失,怎样刷新重新显示

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


加好友 发短信
等级:四尾狐 帖子:812 积分:6676 威望:0 精华:0 注册:2014/11/26 12:32:00
[求助]单元格绘制的背景色丢失,怎样刷新重新显示  发帖心情 Post By:2019/4/25 15:11:00 [只看该作者]

 如题,求助

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


加好友 发短信
等级:超级版主 帖子:107730 积分:547983 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/4/25 15:14:00 [只看该作者]

Tables("表A").Refresh

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


加好友 发短信
等级:四尾狐 帖子:812 积分:6676 威望:0 精华:0 注册:2014/11/26 12:32:00
回复:(有点蓝)Tables("表A").Refresh  发帖心情 Post By:2019/4/25 15:30:00 [只看该作者]



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

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


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

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


加好友 发短信
等级:超级版主 帖子:107730 积分:547983 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/4/25 15:41:00 [只看该作者]

既然报错,就需要把错误改正

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


加好友 发短信
等级:四尾狐 帖子:812 积分:6676 威望:0 精华:0 注册:2014/11/26 12:32:00
回复:(有点蓝)既然报错,就需要把错误改正  发帖心情 Post By: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编辑过]

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


加好友 发短信
等级:超级版主 帖子:107730 积分:547983 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/4/25 15:57:00 [只看该作者]

没有_Identify这个列,检查代码
[此贴子已经被作者于2019/4/25 15:56:39编辑过]

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


加好友 发短信
等级:四尾狐 帖子:812 积分:6676 威望:0 精华:0 注册:2014/11/26 12:32:00
回复:(有点蓝)没有_Identify这个列,检查代码[al...  发帖心情 Post By:2019/4/25 16:30:00 [只看该作者]

辛苦坛主看看是否下面代码是否有问题了

报错如下:

.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编辑过]

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


加好友 发短信
等级:超级版主 帖子:107730 积分:547983 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/4/25 16:53:00 [只看该作者]

If e.Col.Name = "项目获取开发意向确定_计划完成时间" Andalso e.Row.IsNull("项目获取开发意向确定_计划完成时间") = False  Then

 回到顶部