主题：显示超差单元格颜色

有三个表，标准规格表，公差表和测量数据表，想要测量数据超差的单元格以红色背景显示，如何写代码？

若

标准规格表（D1)-公差表（D1)<测量数据表(D1）<标准规格表（D1)+公差表（D1)

测量数据表(D1）单元格为原色，否则，单元测量数据表(D1）单元格为红色

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

点击浏览该文件:显示超差单元格颜色.foxdb

谢谢2楼，我的例子要复杂的多，每一列的标定尺寸都不一样，涉及到3个表中取数，比简单的固定值（如60分）复杂许多，我自己无法完成，请高手帮助，谢谢！

多谢Isy, 真正套用到我的项目中，为什么是两个"product"呀，实际的项目中该表还有一个“TestingDate"列

e.Table.DataTable.AddUserStyle("差",Color.Red,Color.Black)
For Each c As Col In e.Table.Cols
    If e.Col.Name = c.Name AndAlso c.Name <> "Product""Product" Then
        Dim dr1 As DataRow = DataTables("标准规格").Find("Product Is Not Null And Product = '" & e.Row("Product") & "'")
        Dim dr2 As DataRow = DataTables("公差范围").Find("Product Is Not Null And Product = '" & e.Row("Product") & "'")
        If dr1 IsNot Nothing AndAlso dr2 IsNot Nothing Then
            If e.Row(c.Name) < dr1(c.Name) - dr2(c.Name) OrElse e.Row(c.Name) > dr1(c.Name) + dr2(c.Name) Then
                e.Style = "差"
            End If

套用后，出现如下错误

.NET Framework 版本：2.0.50727.3053
Foxtable 版本：2014.3.8.1
错误所在事件：表，测量数据，DrawCell
详细错误信息：
调用的目标发生了异常。
从字符串“233667_1”到类型“Double”的转换无效。
输入字符串的格式不正确。

        End If
    End If
Next

搞定了，加入了一行代码

e.Table.DataTable.AddUserStyle("差",Color.Red,Color.Black)
For Each c As Col In e.Table.Cols
    If e.Col.Name = c.Name AndAlso c.Name <> "Product" Then
        Dim dr1 As DataRow = DataTables("标准规格").Find("Product Is Not Null And Product = '" & e.Row("Product") & "'")
        Dim dr2 As DataRow = DataTables("公差范围").Find("Product Is Not Null And Product = '" & e.Row("Product") & "'")

       If e.Col.IsNumeric 
        If dr1 IsNot Nothing AndAlso dr2 IsNot Nothing Then
            If e.Row(c.Name) < dr1(c.Name) - dr2(c.Name) OrElse e.Row(c.Name) > dr1(c.Name) + dr2(c.Name) Then
                e.Style = "差"
            End If
        End If

End if
    End If
Next