跨表统计自动更新代码问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，我有很多表，其中有一个是汇总表，需要跨表汇总子表的数据但我根据帮助助说明里的代码进行修改后，却但不到相应的数据，请问是什么原因呢，是哪里有错吗？比如我有一个“项目信息表”，包括项目名称列、项目概算、合同金额、进度金额、已付款等，其中明细表“合同台账”表中也有项目名称列，合同金额列，现在我要在“项目信息表”里能自动汇总某一项目的合同金额，也就是如果我在“合同台账表”里增加了项目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

帮助说明里的代码如下：

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

请老师指点一下，是哪里弄错了，非常感谢信。

把我这个表发过来吗？？

[此贴子已经被作者于2014-6-27 15:23:25编辑过]

已经上传了我的表，谢谢哈，现在是验证阶段，我只有把这些做好了，演示给领导看了，才有可能购买，因为公司为这些也花了不少钱，现在任何一个东西都要验证才能考虑买不买，但我觉得这个软件很不错，有信心能把它做好的。

我只上传了项目管理文件，EXCEL表没有

我咋看不见我上传的附件呢？？

现在主要是跨表统计数据是个难题，如果搞好，基本上日常统计要的表都差不多了，后面就是开发的问题了，开发的事要慢慢来，先用好了，再进行开发。

老师收到我上传的文件了吗？

那没看见就是没有收到了，但我已经提交了，还是没有出现，我再添加点上传提示“错误，请不要重复提交。。。。”。。。。。

提示1个文件上传成功，目前今天总共上传了3个附件，希望老师能收到，帮我解决问题。。。。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:高科统计台账表.table

主题：跨表统计自动更新代码问题