按照坛子里高手给我的代码，我试着编了2个事件如下：

第1个：

For Each dr As DataRow In DataTables("职工总库").DataRows
    Dim dr2 As DataRow = DataTables("变动总表").Find("工号=\'" & dr("工号") & "\'")
    If dr2("是否变更") = "否" Then
            dr2("变动后工组") = dr("工组")
            dr2("变动后工种") = dr("工种")
            dr2("变动后部门") = dr("部门")
            dr2("变动后年级") = dr("部门")
            dr2("是否变更") = "是"
    End If
Next

------------------------------------

第2个

For Each dr As DataRow In DataTables("职工总库").DataRows
  Dim dr2 As DataRow =DataTables("变动总表").Find("工号 = \'" & dr("工号") & "\'")
 If dr2("变动结果")=dr("在职状态") OrElse dr2("变动结果")="离职"  Then
    dr2("是否变更")="否"
 Else
    dr2("是否变更")="是"
 End If
Next

但事件使用后，都显示：
此主题相关图片如下：狐表报错20130422.jpg

不知是什么原因呢？

高手给我的代码是可以顺利使用的，但改了之后就这样了……

求教，十分感谢！