For Each dr As Datarow In DataTables("表A").DataRows
For Each dt1 As Datarow In DataTables("表B").DataRows
For Each dt As Datarow In DataTables("表C").DataRows
If dt IsNot Nothing Then
dr("第一列") = dt("第一列")
dr("第二列") = dr("第二列")
dr("第三列") = dt("第三列")-dt1("第三列")
dr("第四列") = dt("第四列") – dt1("第四列")
End If
next
说明:表A、表B、表C结构完全相同;表A第一列与表B第一列完全相同,表A第二列与表B第二列完全相同;第三四列等于相应表C行减去相应表B行的值。