主题：字体自动变色

盘具成本表的窗口没有全木盘金额？

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

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

要求录入窗口右侧金额列只要大于0全部变色

不知理解对不对，差不多也就这意思。

If Tables("盘具成本").Rows.Count > 0 Then
    If Tables("盘具成本").Current("全木盘_金额") > 0 Then
        For Each c As WinForm.Control In Forms("成本窗口").Controls
            If Typeof c Is WinForm.ComboBox OrElse Typeof c Is WinForm.TextBox Then
                e.Form.Controls(c.name).BackColor = Color.Red
            End If
        Next
    Else
        For Each c As WinForm.Control In Forms("成本窗口").Controls
            If Typeof c Is WinForm.ComboBox OrElse Typeof c Is WinForm.TextBox Then
                e.Form.Controls(c.name).BackColor = Color.White
            End If
        Next
    End If
End If

这组代码所有的格子全部变红了，

        If t.BindingField > ""
            If t.BindingField.contains("金额") And val(t.text) > 0 Then
                Forms("成本窗口").Controls(c.name).BackColor = Color.Red
            Else
                Forms("成本窗口").Controls(c.name).BackColor = Color.white
            End If
        End If
    End If
Next

呵呵，你的全部别人不好理解啊。