有关在表中取值汇总的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师下午好

今天关于汇总的问题

“郑州审查表算分”是“河南地标2015”的父表，我想把 “河南地标2015”中专业分类列的节地规划的参评分数汇总成为“河南地标2015”参评总分列 ·节地规划行的值

我在表属性 datacolchanged里面写了一段代码，可是无法生成我想要的值，还请帮我看一下

谢谢！

详见附件

下载信息 [文件大小：下载次数： ]
点击浏览该文件:10.28日狐表问题.rar

怎么样的值才是正确的？就项目例子举例说明

下载信息 [文件大小：下载次数： ]
点击浏览该文件:问题描述.rar

我测试没有问题。旧数据需要重置一次列
图片点击可在新窗口打开查看

此主题相关图片如下：1.png

老师，我想不用重置列这种方式来实现，我想做一个语句不用刷新就能出来结果。我是参照咱们的说明文件来做语句的，但是没有成功，您看是我哪里做的有问题

http://www.foxtable.com/bbs/dv_rss.asp?boardid=2&id=7232&page=3496&s=xhtml

老师，这个问题没有解决。

以下是我们做的语句，您再帮忙看一下。需求还是希望能够自动更新数据，不用手动刷新。

Select Case e.DataCol.Name

Case "不参评分数","参评分数","条文平均分","居建总分","居建分1","居建分2","居建分3","居建分4","公建总分","公建分1","公建分2","公建分3","公建分4"

Dim pr As DataRow

pr = DataTables("郑州审查表算分").Find("专业分类= '" & e.DataRow("专业分类") & "'")

If pr IsNot Nothing Then

DataTables("郑州审查表算分").DataCols("参评分数").RaiseDataColChanged(pr)

DataTables("郑州审查表算分").DataCols("居建总分").RaiseDataColChanged(pr)

DataTables("郑州审查表算分").DataCols("公建总分").RaiseDataColChanged(pr)

DataTables("郑州审查表算分").DataCols("条文平均分").RaiseDataColChanged(pr)

End If

End Select

这是在（河南地标2015）的表属性（datacolchanged）里面的语句，现在做完语句后，修改（河南地标2015）的数据，("郑州审查表算分")的数据不变了，重置列也不起作用。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:博满建科10-28.foxdb

郑州审查表算分datacolchanged代码保留不要去掉啊，需要2个表的事件结合使用的

下载信息 [文件大小：下载次数： ]
点击浏览该文件:博满建科10-28.zip

主题：有关在表中取值汇总的问题