主题：请教drawcell事件的写法

你没有理解 drawcell 事件，此事件，是不断执行的，每次执行的时候，触发的是某一个单元格。

你要对单元格 e.row e.col 进行判断来写代码，也就是控制每一个单元格，而不是总体设置。

直接写

If e.Row.index Mod 2 = 1 Then
    Dim r1 As Row = e.Table.rows(e.Row.index-1)
    Dim r2 As Row = e.Row
    If r1(e.Col.name) <> r2(e.Col.name) Then
        e.Table.DataTable.AddUserStyle("不同", Color.red, Color.yellow)
        e.style = "不同"
    End If
End If