下面代码有什么问题吗？刚换上3月6日第二次更新后，就不起作用了，之前还好好的呀？～

Dim bc As integer = Tables("表A").Current("编号")
Dim dr As DataRow = DataTables("表b").Find("[编号]  = \'" & bc & "\'")
if dr isnot nothing  then
If Tables("表A").Current("摘要") <> dr("摘要") andalso Tables("表A").Current("分号") = dr("分号") Then
      e.Style = "是否修改过"     （这是自定义样式）
   elseif Tables("表A").Current("品名") <> dr("品名") andalso Tables("表A").Current("分号") = dr("分号") Then
      e.Style = "是否修改过"
   elseif Tables("表A").Current("金额") <> dr("金额") andalso Tables("表A").Current("分号") = dr("分号") Then
      e.Style = "是否修改过"
End If
End If

这部分是没有修改过的，不应该无效，你先调试一下代码，看看问题在那里。
基本的调试技巧要掌握的，帮助中有讲述。
估计就是比较的部分没有成立，在命令窗口写一个类似的比较式测试也可以啊。

搞不定就传文件。