If forms("变更申请").opened Then
If e.Col.Name <> "BGID" And e.Col.name <> "变更状态" Then
Dim dr As DataRow = DataTables("变更前").SQLFind("_Identify = '" & e.Row("BGID") & "'")
If dr IsNot Nothing Then
If e.Row(e.Col.name) <> dr(e.Col.name) Then
e.style = "红"
End If
End If
End If
End If
我现在用的是上面的代码 写在变更后这张表的drawcell里 有时候可以变色 有时候不行,需要如何修改,初始两张表都只加载30行数据