Foxtable(狐表)用户栏目专家坐堂 → 单元格 绘图报错


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

主题:单元格 绘图报错

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


加好友 发短信
等级:九尾狐 帖子:2466 积分:22761 威望:0 精华:0 注册:2011/3/29 17:14:00
单元格 绘图报错  发帖心情 Post By:2019/10/26 21:27:00 [只看该作者]

If e.Col.Name =  "审核"  Then
    e.StartDraw() '开始单元格绘图
    If e.Row("审核").txet.Contains("已") Then
            e.Style =  "红色字体"
        Dim n As New Pen(Color.Green, 5)  '获得一个绿色的宽度为5的画笔
        '划线颜色和宽度
        e.Graphics.DrawRectangle(n,e.x + 1,e.y + 8, e.Width-4 ,e.Height-2)  '画个框子
        e.EndDraw
    End If
End If



.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2019.10.19.1
错误所在事件:表,fox代码,DrawCell
详细错误信息:
调用的目标发生了异常。
未找到类型“String”的公共成员“txet”。

[此贴子已经被作者于2019/10/26 22:12:39编辑过]

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


加好友 发短信 一级勋章
等级:超级版主 帖子:7237 积分:40614 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2019/10/26 21:57:00 [只看该作者]

If e.Col.Name =  "审核"  Then
    e.StartDraw() '开始单元格绘图
    If e.Row("审核").txet.Contains("已") Then
        e.Style =  "红色字体"
        e.Graphics.FillRectangle(Brushes.Green,e.x + 1,e.y + 8, e.Width-4 ,e.Height-2)
        e.EndDraw()
    End If
End If

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


加好友 发短信
等级:九尾狐 帖子:2466 积分:22761 威望:0 精华:0 注册:2011/3/29 17:14:00
  发帖心情 Post By:2019/10/26 22:18:00 [只看该作者]

.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2019.10.19.1
错误所在事件:表,fox代码,DrawCell
详细错误信息:
调用的目标发生了异常。
未找到类型“Boolean”的公共成员“txet”。

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


加好友 发短信 一级勋章
等级:超级版主 帖子:7237 积分:40614 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2019/10/26 22:54:00 [只看该作者]

被您带沟里了!
If e.Col.Name =  "审核"  Then
    e.StartDraw() '开始单元格绘图
dim s as string
    If s.Contains("已") Then
        e.Style =  "红色字体"
        e.Graphics.FillRectangle(Brushes.Green,e.x + 1,e.y + 8, e.Width-4 ,e.Height-2)
        e.EndDraw()
    End If
End If
[此贴子已经被作者于2019/10/26 22:57:25编辑过]

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


加好友 发短信
等级:超级版主 帖子:107896 积分:548849 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/27 20:27:00 [只看该作者]

If e.Row("审核").txet.Contains("已") Then

改为

If e.text.Contains("已") Then

 回到顶部