主题：字体自动变色

师傅你好；

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

 

帮助里指的是一张表。

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

师傅：我这样设计的，在一张表里只要有大于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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:生产管理.rar

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

谢谢师傅

谢谢师傅！

录入窗口自动显示的金额，能不能也同时改变颜色

为什么我加入下列代码后：

If e.col.name = "全木盘资_金额" Then
    Dim v As Double
    Double.TryParse(e.text,v)
    If v > 0 Then
        e.Style = "a"
    End If
End If

对自动显示全木盘不同材料的单价，就不能改变了，不知是什么原因？

Dim dr1 As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "全木盘_材料","规格","全木盘_厚度", "地点"
        Dim dr2 As DataRow
        Dim fls As String
        fls = "名称 = '" & dr1("全木盘_材料") & "' And 规格 = '" & dr1("规格") & "' And 厚度 = " & dr1("全木盘_厚度") & " And 送货地点  = '" & dr1("地点") & "'"
        dr2 = DataTables("参数").Find(fls)
        If dr2 IsNot Nothing Then
        dr1("全木盘_单价") = dr2("单价")
        End If
End Select
请师傅帮忙解决

规格、厚度是数据型

在录入窗口如何启用窗口计时器

我开启计时器

在事件代码中输入下列代码：

If Tables("盘具成本").Rows.Count > 0 Then
    If Tables("盘具成本").Current("全木盘_金额") > 0 Then
        e.Form.Controls("NumericComboBox1").BackColor = Color.Red
    Else
        e.Form.Controls("NumericComboBox1").BackColor = Color.White
    End If
End If

窗口全木盘金额列没有变色，并有错误提示

请师傅帮忙解决

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:生产管理.rar

是盘具成本表