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

老师，我有两张表：1、项目信息表，包括的列有：项目名称、合同金额_施工及监理理、合同金额_其他合同。2、合同台账，包括的列有：项目名称、合同类别，合同金额。

现在我要在"项目信息表"的"合同金额_施工及监理"列根据"合同台账"表中相同项目名称且合同类别为"工程施工合同"及"工程监理合同"自动汇总数据,并自动更新,请问相关代码怎么编写,请专家帮忙一下,非常感谢.帮助里的跨表统计和自动更新,缺少一个条件,和这不一样.

[此贴子已经被作者于2014-7-1 9:32:19编辑过]

跨表统计和更新那里，不是可以设置条件的么？那里是一个条件，你的是两个、三个条件而已，就不会改了？

真不会做，请把你的项目发上来测试。

("项目名称 = '工程施工合同' and 项目名称 = '工程监理合同'") 条件是可以自由设置的,多少个都没问题.

请专家帮忙看一下这段代码错在哪里？

Select Case e.DataCol.Name

Case "项目名称","工程单位名称","费用类别","费用类别1","进度金额"

Dim drs As List(of DataRow)

Dim Filter As String

Filter = "[_SortKey] >= " & e.DataRow("_SortKey") & " And [项目名称] = '" & e.DataRow("项目名称") & " And [工程单位名称] = '" & e.DataRow("工程单位名称") & " And [费用类别] = '" & e.DataRow("费用类别") & " And [费用类别1] = '" & e.DataRow("费用类别1") & "'"

drs = e.DataTable.Select(Filter)

For Each dr As DataRow In drs

Filter = "[_SortKey] <= " & dr("_SortKey") & " And [项目名称] = '" & dr("项目名称") & " And [工程单位名称] = '" & e.DataRow("工程单位名称") & " And [费用类别] = '" & e.DataRow("费用类别") & " And [费用类别1] = '" & e.DataRow("费用类别1") & "'"

Dim Val1 As Double = e.DataTable.Compute("Sum(进度金额)",Filter)

DR("累计进度") = Val1

If e.DataCol.Name = "项目名称" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then

Filter = "[_SortKey] > " & e.DataRow("_SortKey") & " And [项目名称] = '" & e.OldValue & " And [工程单位名称] = '" & e.OldValue & " And [费用类别] = '" & e.OldValue & " And [费用类别1] = '" & e.OldValue & "'"

drs = e.DataTable.Select(Filter)

For Each dr As DataRow In drs

Dim Val1 As Double = e.DataTable.Compute("Sum(进度金额)",Filter)

dr("累计进度") = Val1

End If

End Select

在命令窗口执行后提示如下信息：

编译错误：“e”is not accessible in this context because it is "private"

错误代码：elect Case e.DataCol.Name

请专家老师帮我修改一下，谢谢。。。。。

你代码写在哪里的?

本表的DataColChenged

[此贴子已经被作者于2014-7-1 15:39:03编辑过]

上传不了我的东西啊，////显示上传成功，可一个也没看见

以下是引用爱相随在2014-7-1 15:38:00的发言：
本表的DataColChenged

[此贴子已经被作者于2014-7-1 15:39:03编辑过]

代码没有错，是你的逻辑错了。

直接说你要实现什么功能吧。

老师，我现在就三个主要问题比较难：

1、表一是汇总情况表，包括的列有：项目名称、合同金额1、合同金额2、合同金额3，表二包括的列：项目名称、施工单位、合同类别、费用类别、合同金额。现在我要在表一里根据项目名称、合同类别1、合同类别2、合同类别3的值分别填入合同金额1、合同金额2、合同金额3；

2、表三是项目进度表，包括的列有：项目名称、施工单位、费用大类，费用小类、进度金额、累计进度。现在要根据项目名称、施工单位、费用大类、费用小类自动得出累计进度，比如项目A、施工单位B、费用大项C、费用小项D，如第一次输入金额是300，得出累计进度值是300；第二次在任意行再输入相同的信息时，在输入金额前累计进度是300，输入当期（本行）进度金额200后，累计进度变为500，其他项目也一样。

3、如何实现表2合同编号根据合同类别以不同的字母开头，且自动连续编号。比如合同类别分别有：施工合同、设计合同、监理合同、服务合同等，合同编分别为SG0001、SJ0001、JL0001、FW0001开头，当输入SG时，自动增加当行编号。比如SG类合同已保存到SG0005号，再输入SG时，自动编号为SG0006。

如实现以上功能，代码怎么写啊，如老师能为我代写，非常感谢不尽。。。。同时希望老师注明在哪里编写。高手看到此信息也欢迎支援。

[此贴子已经被作者于2014-7-1 16:22:31编辑过]

主题：[求助]关于有条件的跨表统计和自动更新