下列关于流水账的代码，项目名称、工程单位名称、费用类别、费用类别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)("进度金额")
Next
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
End If
If dr IsNot Nothing Then
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)("进度金额")
Next
End If
End If
加好友 
发短信
Post By：2014/7/2 11:23:00 [只看该作者]
