主题：字体自动变色

谢谢师傅！

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

启用窗口计时器

窗口TimerTick事件代码：

If Tables("表A").Rows.Count > 0 Then
    If Tables("表A").Current("第一列") > 0 Then
        e.Form.Controls("NumericComboBox1").BackColor = Color.Red
    Else
        e.Form.Controls("NumericComboBox1").BackColor = Color.White
    End If
End If

 

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

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
请师傅帮忙解决

规格、厚度是数据型

既然规格是数值型，这里就不能有单引号 '" & dr1("规格") & "'

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

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

 

 

我开启计时器

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

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

是盘具成本表