[求助]如何实现绘制超范围显示 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

公司产品标准比较多，如果按照下边的代码一个一个产品的在 “A表”中 Drawcell设置,工作量太大，

Case "筛分_60目筛分"

If e.Row("配方名称")="产品A" Then

If e.Row.IsNull(e.Col.Name) = False

If e.Row("筛分_60目筛分")<5 Or e.Row("筛分_60目筛分")>15 Then

e.Style = "不合格"

End If

If e.Row("配方名称")="产品B" Then

If e.Row.IsNull(e.Col.Name) = False

If e.Row("筛分_60目筛分")<20 Or e.Row("筛分_60目筛分")>35 Then

e.Style = "不合格"

End If

能不能在"B表"内把标准建好，然后再引到"A表"中，代码怎么打，以下是我的错误代码，没学过0基础不要笑啊，如果明白我的意思的，请高手帮我，谢谢。

Case "筛分_60目筛分"

If e.Row.IsNull(e.Col.Name) = False

dt = DataTables("检测项目列表").Find("[成品检测标准_配方名称] = '" & e.Row("配方名称") & "'")

If dt IsNot Nothing Then

If e.Row(筛分_60目筛分) < e.Table("B表").Row("成品检测标准_60目筛分最低值") Then

e.Style = "不合格"

End If

请上传具体项目测试，不知道你设置的数据是怎么样的，无法处理

【如果“A表”“B列”数值小于"C表"“D列”】，这句话用代码如何表达，谢谢。

意思是，“A表”录入的产品所对应的60目筛分，以“B表”的标准范围判定是否合格，合格标成绿色，不合格标成红色。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:测试1.rar

If e.Col.name = "筛分60目" Then
    If e.Row.IsNull(e.Col.Name) = False
        Dim dr = DataTables("表B").Find("产品列表 = '" & e.Row("产品") & "'")
        If dr IsNot Nothing Then
            If val(e.Row("筛分60目")) < val(dr("筛分60目标准_最低值")) OrElse val(e.Row("筛分60目")) > val(dr("筛分60目标准_最高值")) Then
                e.Table.DataTable.AddUserStyle("不合格", Color.red, Color.black)
                e.Style = "不合格"
            End If
        End If
    End If
End If

主题：[求助]如何实现绘制 超范围 显示

主题：[求助]如何实现绘制超范围显示