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


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

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

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望: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

 回到顶部