请帮助完成?
有三个表:A、B、C,都有“合同号”和“计划完成”两列,下列代码只能完成当三个表中数据都显示的时候可以,
For Each r As Row In Tables("表A").Rows
For Each r1 As Row In Tables("表B").Rows
If r("合同号")= r1("合同号") Then
r1("计划完成")= r("计划完成")
End If
Next
For Each r2 As Row In Tables("表C").Rows
If r("合同号")= r2("合同号") Then
r2("计划完成")= r("计划完成")
End If
Next
Next
但是当表B、C在 BeforeLoadInnerTable事件中加入代码
Select Case e.DataTableName
Case "表B","表C"
e.Filter = "[_Identify] Is Null"
End Select
时,执行上述代码,表B、C的“计划完成”列不执行。如何修改代码完成上述要求。