以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  字体自动变色  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=9404)

--  作者:caoxy
--  发布时间:2011/4/8 9:42:00
--  字体自动变色

师傅你好;

当数量*单价=金额时,金额能否自动变色

 


--  作者:狐狸爸爸
--  发布时间:2011/4/8 9:46:00
--  

可以的,请看:

 

http://help.foxtable.com/topics/0656.htm

 


--  作者:caoxy
--  发布时间:2011/4/8 14:09:00
--  

帮助里指的是一张表。

我指的是每一列,也就是等于0.00时显示一种色,大于0时显示另一种色


--  作者:狐狸爸爸
--  发布时间:2011/4/8 14:18:00
--  
一张表和一列有差别吗,你可以判断列名啊。
--  作者:lihe60
--  发布时间:2011/4/8 15:52:00
--  
If e.Col.IsNumeric AndAlso e.Col.Name <> "总分" Then
    If
e.Row.IsNull(e.Col.Name) = False \'且该列已经输入内容
       
If e.Row(e.Col.Name) < 60 Then \'如果该列的值小于60
            e.Style =
"不及格" \'那么用"不及格"样式绘制单元格
       
ElseIf e.Row(e.Col.Name) > 95 Then \'如果单元格的值大于95
            e.Style =
"优秀" \'那么用"优秀"样式绘制单元格
       
End If
    End
If
End
If
--  作者:caoxy
--  发布时间:2011/4/8 15:56:00
--  

师傅:我这样设计的,在一张表里只要有大于0的数,都显示了同样的颜色,还要请师傅帮助修正,

If e.Col.IsNumeric AndAlso e.Col.Name <> "盘具成本" Then
    If e.Row.IsNull(e.Col.Name) = False \'且该列已经输入内容
        If e.Row(e.Col.Name) =0.00 Then \'如果该列的值=0.00
            e.Style = "全木盘_金额=0" \'那么用"全木盘_金额=0"样式绘制单元格
        ElseIf e.Row(e.Col.Name) > 0.00 Then \'如果单元格的值大于95
            e.Style = "全木盘_金额>0" \'那么用"全木盘_金额>0"样式绘制单元格
        End If
    End If
End IF


--  作者:lihe60
--  发布时间:2011/4/8 15:58:00
--  

If e.Col.IsNumeric AndAlso e.Col.Name <> "盘具成本" Then
    If e.Row.IsNull(e.Col.Name) = False \'且该列已经输入内容
        If e.Row(e.Col.Name) =0.00 Then \'如果该列的值=0.00
            e.Style = "无色"   \'那么用"全木盘_金额=0"样式绘制单元格
        ElseIf e.Row(e.Col.Name) > 0.00 Then \'如果单元格的值大于95
            e.Style = "红色"   \'那么用"全木盘_金额>0"样式绘制单元格
        End If
    End If
End IF

不执行吗?


--  作者:lihe60
--  发布时间:2011/4/8 15:58:00
--  

真的不行的话,上传附件。


--  作者:caoxy
--  发布时间:2011/4/8 17:10:00
--  

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

要求在不同类型的材料金额列,大于0的数显示一种色,等于0的数显示本色

谢谢师傅


--  作者:狐狸爸爸
--  发布时间:2011/4/8 18:51:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目48.rar