If e.Col.name = "白度" Then If e.Row.IsNull("白度") = False Then Dim dx = DataTables("产品标准").Find("配方名称 = '" & e.Row("配方名称") & "'") If dx IsNot Nothing Then If dx.IsNull("白度_最低值") Then e.Table.DataTable.AddUserStyle("不需要", Color.black, Color.black) e.Style = "不需要" Else If val(e.Row("白度")) < val(dx("白度_最低值")) OrElse val(e.Row("白度")) > val(dx("白度_最高值")) Then e.Table.DataTable.AddUserStyle("不合格", Color.red, Color.black) e.Style = "不合格" End If End If Else ' 反之 e.Table.DataTable.AddUserStyle("合格", Color.LawnGreen, Color.black) e.Style = "合格" End If End If End If
|