Foxtable(狐表)用户栏目专家坐堂 → [求助]关于数据标记代码的修改(已解决)


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

主题:[求助]关于数据标记代码的修改(已解决)

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


加好友 发短信
等级:七尾狐 帖子:1525 积分:10580 威望:0 精华:0 注册:2008/9/24 11:16:00
[求助]关于数据标记代码的修改(已解决)  发帖心情 Post By:2011/12/20 22:02:00 [只看该作者]

一段数据标记的代码,对一至六车间要求值控制在14-16之间,超出给予标记,而七、八两个车间要求控制在39-41之间,此时代码应该如何修改,请各位老师帮助指教,谢谢!!

 

代码如下:

If e.Col.Name = "津贴比例" Then
    If e.Row.IsNull(e.Col.Name) = False '且该列已经输入内容
        If e.Row(e.Col.Name) < 14 Then '如果该列的值小于14
            e.Style = "比例偏低" '那么用"比例偏低"样式绘制单元格
        ElseIf e.Row(e.Col.Name) > 16 Then '如果单元格的值大于16
            e.Style = "比例偏高" '那么用"比例偏高"样式绘制单元格
        End If
    End If
End If

 

 

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

[此贴子已经被作者于2011-12-20 22:15:33编辑过]

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


加好友 发短信
等级:管理员 帖子:47449 积分:251065 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/12/20 22:09:00 [只看该作者]

If e.Col.Name = "津贴比例" Then
    If e.Row.IsNull(e.Col.Name) = False '且该列已经输入内容
        Dim v As Double = e.Row("津贴比例")
        Select Case e.Row("车间")
            Case "一车间","二车间","三车间","四车间","五车间","六车间"
                If v < 14 Then
                    e.Style = "比例偏低"
                ElseIf v > 16 Then
                    e.Style = "比例偏高"
                End If
            Case "七车间","八车间"
                If v < 39 Then
                    e.Style = "比例偏低"
                ElseIf v > 41 Then
                    e.Style = "比例偏高"
                End If
        End Select
    End If
End If

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


加好友 发短信
等级:七尾狐 帖子:1525 积分:10580 威望:0 精华:0 注册:2008/9/24 11:16:00
  发帖心情 Post By:2011/12/20 22:15:00 [只看该作者]

OK了,谢谢狐爸老师。

 回到顶部