' 当前表包含CMID列,当前字段为字符型且不为空
If e.Col.IsString AndAlso e.Table.Cols.Contains("CMID") AndAlso e.Row.IsNull(e.Col.Name) = False Then
If e.Row("CMID") = _CMID_CMID Then
Select Case e.Col.Name
Case "器型"
If e.Row(e.Col.Name) <> _CMID_器型 Then '如果该列的值不相符
e.Style = "差异" '那么用"差异"样式绘制单元格
End If
Case "釉色"
If e.Row(e.Col.Name) <> _CMID_釉色 Then '如果该列的值不相符
e.Style = "差异" '那么用"差异"样式绘制单元格
End If
Case "花面"
If e.Row(e.Col.Name) <> _CMID_花面 Then '如果该列的值不相符
e.Style = "差异" '那么用"差异"样式绘制单元格
End If
Case "材质"
If e.Row(e.Col.Name) <> _CMID_材质 Then '如果该列的值不相符
e.Style = "差异" '那么用"差异"样式绘制单元格
End If
Case "产品尺寸"
If e.Row(e.Col.Name) <> _CMID_产品尺寸 Then '如果该列的值不相符
e.Style = "差异" '那么用"差异"样式绘制单元格
End If
Case "产品分类"
If e.Row(e.Col.Name) <> _CMID_产品分类 Then '如果该列的值不相符
e.Style = "差异" '那么用"差异"样式绘制单元格
End If
Case "产品名称"
If e.Row(e.Col.Name) <> _CMID_产品名称 Then '如果该列的值不相符
e.Style = "差异" '那么用"差异"样式绘制单元格
End If
Case "产品容量"
If e.Row(e.Col.Name) <> _CMID_产品容量 Then '如果该列的值不相符
e.Style = "差异" '那么用"差异"样式绘制单元格
End If
Case "成型工艺"
If e.Row(e.Col.Name) <> _CMID_成型工艺 Then '如果该列的值不相符
e.Style = "差异" '那么用"差异"样式绘制单元格
End If
Case "泥料编号"
If e.Row(e.Col.Name) <> _CMID_泥料编号 Then '如果该列的值不相符
e.Style = "差异" '那么用"差异"样式绘制单元格
End If
End Select
End If
End If
加好友 
发短信
Post By：2022/9/24 9:30:00 [只看该作者]
