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