主题：字体自动变色

启用窗口计时器

窗口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

 

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

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

 

 

你不提供文件，只能自己领会了。

如果错误肯定是控件名称不一致。

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

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

 

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

 

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