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

下列关于流水账的代码，项目名称、工程单位名称、费用类别、费用类别1是条件，进度金额是发生额，求满足条件的累计发生额，提示编译错误：。。。错误代码：r = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [项目名称] = '" & mr("项目名称") & "'", "[_SortKey] Desc"And [工程单位名称] = '" & mr("工程单位名称") & "'", "[_SortKey] Desc"And [费用类别] = '" & mr("费用类别") & "'", "[_SortKey] Desc"And [费用类别1] = '" & mr("费用类别1") & "'", "[_SortKey] Desc")，请老师指点，也请高手指点谢谢！！！

Select Case e.DataCol.Name

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

Dim dr As DataRow

Dim mr As DataRow = e.DataRow

Dim drs As List(of DataRow)

dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [项目名称] = '" & mr("项目名称") & "'", "[_SortKey] Desc"And [工程单位名称] = '" & mr("工程单位名称") & "'", "[_SortKey] Desc"And [费用类别] = '" & mr("费用类别") & "'", "[_SortKey] Desc"And [费用类别1] = '" & mr("费用类别1") & "'", "[_SortKey] Desc")

If dr Is Nothing Then

mr("累计进度") = mr("进度金额")

dr = mr

End If

drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [项目名称] = '" & dr("项目名称") & "'", "[_SortKey]"And [工程单位名称] = '" & dr("工程单位名称") & "'", "[_SortKey]"And [费用类别] = '" & dr("费用类别") & "'", "[_SortKey]"And [费用类别1] = '" & dr("费用类别1") & "'", "[_SortKey]")

For i As Integer = 1 To drs.Count - 1

drs(i)("累计进度") = drs(i-1)("累计进度") + drs(i)("进度金额")

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

dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [项目名称] = '" & e.OldValue & "'", "[_SortKey] Desc"And [工程单位名称] = '" & e.OldValue & "'", "[_SortKey] Desc"And [费用类别] = '" & e.OldValue & "'", "[_SortKey] Desc"And [费用类别1] = '" & e.OldValue & "'", "[_SortKey] Desc")

If dr Is Nothing Then

dr = e.DataTable.Find("[项目名称] = '" & e.OldValue & "'", "[_SortKey]")

If dr IsNot Nothing Then

dr("累计进度") = dr("进度金额")

End If

If dr IsNot Nothing Then

For i As Integer = 1 To drs.Count - 1

drs(i)("累计进度") = drs(i-1)("累计进度") + drs(i)("进度金额")

End If

能将跨表统计搞成表达式就更好了，，，商业版就更完美了，，，

类似这样改

dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [项目名称] = '" & mr("项目名称") & "' And [工程单位名称] = '" & mr("工程单位名称") & "' And [费用类别] = '" & mr("费用类别") & "' And [费用类别1] = '" & mr("费用类别1") & "'", "[_SortKey] Desc")

以下是引用爱相随在2014-7-2 11:27:00的发言：
能将跨表统计搞成表达式就更好了，，，商业版就更完美了，，，

跨表统计是可以用表达式的。

http://www.foxtable.com/help/topics/0100.htm

老师，表达式列用聚合函数SUM只能对列进行合计，不能对行进行合计吗？？？

以下是引用爱相随在2014-7-2 16:14:00的发言：
老师，表达式列用聚合函数SUM只能对列进行合计，不能对行进行合计吗？？？

只能统计关联表的数据，不过基本够用了。

老师，帮我看一个下边这代码，其意思是：

有NDXQB列有如下几列：XMBM（项目编码）、HTMC（合同名称）、SKDW（收款单位）、ZJLB（资金类别）、LJFK（累计付款）等，对应的，FKB也有XMBM（项目编码）、HTMC（合同名称）、SKDW（收款单位）、ZJLB（资金类别）、YFKJE（应付款金额），我现在要设零代码，在FKB里输入XMBM（项目编码）、HTMC（合同名称）、SKDW（收款单位）、ZJLB（资金类别）、YFKJE（应付款金额）内容，只有全部录入时，NDXQB里的LJFK（累计付款）列才能统计出数据，就是除统计列外，其他列只有当FKB的列与NDXQB的对应列内容完全一样时才统计。请老师帮我编写一下代码怎么设。谢谢，另请问以下代码错在哪里？

NDXQB的代码：

If e.DataCol.Name = "XMBM" Then

e.DataRow("LJFK") = DataTables("FKB").Compute("Sum(YFKJE)","[XMBM] = '" & e.NewValue & "'" And "[SKDW] = '" & e.NewValue & "'" And "[ZJLB] = '" & e.NewValue & "'" And "[HTMC] = '" & e.NewValue & "'" )

End If

FKB的代码：

If e.DataCol.Name = "LJFK" Then

Dim pr As DataRow

pr = DataTables("NDXQB").Find("XMBM = '" & e.DataRow("XMBM") & "'" And "SKDW = '" & e.DataRow("SKDW") & "'" And "ZJLB = '" & e.DataRow("ZJLB") & "'" And "[MC1] = '" & e.NewValue & "'" )

If pr IsNot Nothing Then

pr("LJFK")= pr("LJFK") + e.NewValue - e.OldValue

End If

感觉是条件设置的地方不对，但又不知道该怎么设置，请老师指点，谢谢。

关联表表达式条件不够，只能以一个条件，比如项目编码，但一个项目可以用几个合同，一个合同有几个单位，同一项目一个单位可以签几个合同，等，就是只有项目编码、合同名称、收款单位、资金类别相同时，累计付款列才统计付款表里满足这些条件的行的合计。

[此贴子已经被作者于2014-7-23 12:17:57编辑过]

求老师和高手帮助我一下了，跪求了。。。。图片点击可在新窗口打开查看

以下是引用爱相随在2014-7-23 13:52:00的发言：
求老师和高手帮助我一下了，跪求了。。。。图片点击可在新窗口打开查看

不是给你写过了吗，还有设么问题？

http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=53771&authorid=0&page=0&star=2

以下是引用爱相随在2014-7-23 13:52:00的发言：
求老师和高手帮助我一下了，跪求了。。。。图片点击可在新窗口打开查看

例子发上。

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