以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  跨表统计自动更新代码问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=53014)

--  作者:爱相随
--  发布时间:2014/6/27 15:08:00
--  跨表统计自动更新代码问题
老师,我有很多表,其中有一个是汇总表,需要跨表汇总子表的数据但我根据帮助助说明里的代码进行修改后,却但不到相应的数据,请问是什么原因呢,是哪里有错吗?比如我有一个“项目信息表”,包括项目名称列、项目概算、合同金额、进度金额、已付款等,其中明细表“合同台账”表中也有项目名称列,合同金额列,现在我要在“项目信息表”里能自动汇总某一项目的合同金额,也就是如果我在“合同台账表”里增加了项目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

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


--  作者:有点甜
--  发布时间:2014/6/27 15:11:00
--  
 代码没有错,你的例子发上来。
--  作者:爱相随
--  发布时间:2014/6/27 15:21:00
--  
把我这个表发过来吗??
[此贴子已经被作者于2014-6-27 15:23:25编辑过]

--  作者:Bin
--  发布时间:2014/6/27 15:23:00
--  
带上用到的表和测试数据的狐表项目文件.  这样才能测试分析问题所在,并给予解决.
--  作者:爱相随
--  发布时间:2014/6/27 15:27:00
--  
已经上传了我的表,谢谢哈,现在是验证阶段,我只有把这些做好了,演示给领导看了,才有可能购买,因为公司为这些也花了不少钱,现在任何一个东西都要验证才能考虑买不买,但我觉得这个软件很不错,有信心能把它做好的。
--  作者:爱相随
--  发布时间:2014/6/27 15:28:00
--  
我只上传了项目管理文件,EXCEL表没有
--  作者:爱相随
--  发布时间:2014/6/27 15:29:00
--  
我咋看不见我上传的附件呢??
--  作者:有点甜
--  发布时间:2014/6/27 15:32:00
--  
以下是引用爱相随在2014-6-27 15:29:00的发言:
我咋看不见我上传的附件呢??

 

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

 


--  作者:爱相随
--  发布时间:2014/6/27 15:37:00
--  
现在主要是跨表统计数据是个难题,如果搞好,基本上日常统计要的表都差不多了,后面就是开发的问题了,开发的事要慢慢来,先用好了,再进行开发。
--  作者:爱相随
--  发布时间:2014/6/27 15:41:00
--  
老师收到我上传的文件了吗?