看了一下,你获取行的代码不能这样写。你应该这样写。比如
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")