老师，我有很多表，其中有一个是汇总表，需要跨表汇总子表的数据但我根据帮助助说明里的代码进行修改后，却但不到相应的数据，请问是什么原因呢，是哪里有错吗？比如我有一个“项目信息表”，包括项目名称列、项目概算、合同金额、进度金额、已付款等，其中明细表“合同台账”表中也有项目名称列，合同金额列，现在我要在“项目信息表”里能自动汇总某一项目的合同金额，也就是如果我在“合同台账表”里增加了项目A 的合同金额，则在项目汇总表里输入项目A时，“项目信息表”的合同金额列能自动汇总合同台账表里相于项目A的全部合同金额，不分合同单位，以后在“合同台账”里增加项目A的合同金额时，“项目信息表”里的项目A的合同金额都能自动增加。修改后的代码如下：
If e.DataCol.Name = "合同金额" Then
Dim pr As DataRow
pr = DataTables("项目信息表").Find("项目名称 = '" & e.DataRow("项目名称") & "'")
If pr IsNot Nothing Then
pr("合同金额")= pr("合同金额") + e.NewValue - e.OldValue
End If
End If
帮助说明里的代码如下：
If e.DataCol.Name = "数量"
Then
Dim pr As
DataRow
pr = DataTables("统计").Find("产品 =
'" & e.DataRow("产品") & "'")
If pr IsNot
Nothing
Then
pr("数量")= pr("数量") + e.NewValue -
e.OldValue
End
If
End
If
请老师指点一下，是哪里弄错了，非常感谢信。
加好友 
发短信
Post By：2014/6/27 15:08:00 [只看该作者]
