求助：流水账代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，我要做一个流水账，有：项目名称、工程单位名称、费用类另、费用类别1、进度金额、累计进度等列，现在要做一个流水账，当“项目名称、工程单位名称、费用类别、费用类别1”相同时，才进行累计进度，因为同一个工程单位可能对同一个项目的不同工程进行施工，所以需要这么多条件。我根据帮助里的代码修改后的代码如下：

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("项目名称") & " And [工程单位名称] = '" & mr("工程单位名称") & " And [费用类别] = '" & mr("费用类别") & " 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("项目名称") & " And [工程单位名称] = '" & dr("工程单位名称") & " And [费用类别] = '" & dr("费用类别") & " 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 & " And [工程单位名称] = '" & e.OldValue & " And [费用类别] = '" & e.OldValue & " And [费用类别1] = '" & e.OldValue & "'", "[_SortKey] Desc")

If dr Is Nothing Then

dr = e.DataTable.Find("[项目名称] = '" & e.OldValue & "And [工程单位名称] = '" & e.OldValue & "And [费用类别] = '" & e.OldValue & "And [费用类别1] = '" & 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

End Select

Dim Key As Decimal

Dim Index As Integer

Dim Filter As String

Dim r As Row

Index = Math.Min(e.OldIndex, e.NewIndex)

Key = e.Table.Rows(Index)("_SortKey")

r = e.Table.Rows(e.NewIndex)

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

e.Table.DataTable.DataCols("进度金额").RaiseDataColChanged(Filter)

e.DataRow("进度金额") = 0

当重置列时提示编译错误：

.NET Framework 版本：2.0.50727.3053

Foxtable 版本：2014.5.12.1

错误所在事件：表，进度信息表， DataColChanged

详细错误信息：

Exception has been thrown by the target of an invocation.

Syntax error: Missing operand after '江苏太平洋建设有限公司' operator.

就是“工程单位名称”这个地方有错，请老师和高手帮助指点，很感谢。

[此贴子已经被作者于2014-7-15 10:31:27编辑过]

主题：求助：流水账代码