Foxtable(狐表)用户栏目专家坐堂 → 重新编辑的单元格自动标记红色字体


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

主题:重新编辑的单元格自动标记红色字体

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


加好友 发短信
等级:三尾狐 帖子:689 积分:5155 威望:0 精华:0 注册:2017/10/22 10:15:00
  发帖心情 Post By:2018/9/13 23:30:00 [只看该作者]

我发现第二列要操作两次,第五列就会生成正确的值

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/9/14 9:05:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb


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


加好友 发短信
等级:三尾狐 帖子:689 积分:5155 威望:0 精华:0 注册:2017/10/22 10:15:00
  发帖心情 Post By:2018/9/14 10:18:00 [只看该作者]

自定义自动、手动样式,如图,想实现当记录列为“手动”时,类型列用“手动”格式绘制单元格(即字体标记为红色),记录列为“自动”时,则类型列用“自动”格式绘制单元格。在表的DrawCell事件写以下代码有错,请老师指正


If e.Col. IsString  AndAlso e.Col.Name = "类型" Then 
    If
 e.Row.IsNull(e.Col.Name) = False '且该列已经输入内容
       
If e. Col ("记录")自动 Then '如果该列的值小于60
            e.Style = 
"自动" '那么用"不及格"样式绘制单元格
        
ElseIf e. Col ("记录")手动 Then '如果单元格的值大于95
            e.Style = 
"手动" '那么用"优秀"样式绘制单元格
        
End If
    End
 If
End
 If



此主题相关图片如下:1111.png
按此在新窗口浏览图片


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/9/14 10:40:00 [只看该作者]

If e.Col.IsString  AndAlso e.Col.Name = "类型" Then
    If e.Row.IsNull(e.Col.Name) = False '且该列已经输入内容
       If e.Row("记录") = "自动" Then '如果该列的值小于60
            e.Style = "自动" '那么用"不及格"样式绘制单元格
        ElseIf e.Row("记录") = "手动" Then '如果单元格的值大于95
            e.Style = "手动" '那么用"优秀"样式绘制单元格
        End If
    End If
End If

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


加好友 发短信
等级:三尾狐 帖子:689 积分:5155 威望:0 精华:0 注册:2017/10/22 10:15:00
  发帖心情 Post By:2018/9/14 10:46:00 [只看该作者]

老师,还是不行

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


加好友 发短信
等级:三尾狐 帖子:689 积分:5155 威望:0 精华:0 注册:2017/10/22 10:15:00
  发帖心情 Post By:2018/9/14 10:46:00 [只看该作者]

可以了

 回到顶部
总数 26 上一页 1 2 3