Case "姓名" Dim dr As Row = e.Row If dr.IsNull("姓名") = False Then If e.Table.Compute("Count([_Identify])","姓名 = '" & dr("姓名") & "'") > 1 Then e.Style = "重复" End If End If
如果姓名重复,重复项单元格用颜色标注
上述代码 在drawcell事件效率很差,可否有其他办法。