主题：求解：如何实现关联表中 表B只计算和A关联字段一样的 列的值综合

 看了一下，你获取行的代码不能这样写。你应该这样写。比如

Dim r2 As Row = DataTables("企业概况").Find("计划书编号 = '" & e.DataRow("计划书编号") & "'")
Dim r As Row = DataTables("企业组织").Find("xxx")
Dim r3 As Row = DataTables("固定资产折旧流动资金").Find("yyy")
Dim r4 As Row = DataTables("销售和成本计划表").Find("zzz")

看4楼，你获取对应数据的时候，不能用Current，要直接根据对应关联的字段查找行。

Dim r2 As Row = DataTables("企业概况").Find("计划书编号 = '" & e.DataRow("计划书编号") & "'")
Dim r As Row = DataTables("企业组织").Find("xxx")
Dim r3 As Row = DataTables("固定资产折旧流动资金").Find("yyy")
Dim r4 As Row = DataTables("销售和成本计划表").Find("zzz")