谢谢老师搞定：
Dim mdrzg As DataRow = e.DataTable.Find("[项目编号] = '" & dr("项目编号") & "' And [优惠率_最高限价] <> 0 ","优惠率_最高限价 DESC")
Dim ndrzg As DataRow = e.DataTable.Find("[项目编号] = '" & dr("项目编号") & "' And [优惠率_最高限价] <> 0 ","优惠率_最高限价")
Dim cnt As Integer = e.DataTable.Compute("Count(优惠率_最高限价)","[项目编号] = '" & dr("项目编号") & "' And [优惠率_最高限价] <> 0")
Dim fil As String = "[项目编号] = '" & dr("项目编号") & "' And [优惠率_最高限价] <> 0 And [_Identify] not In(" & mdrzg("_Identify") & "," & ndrzg("_Identify") & ")"
If cnt > 0 Then
If cnt > 3 Then
fdr("评标优惠率平均值_最高限价") = e.DataTable.Compute("Avg(优惠率_最高限价)",fil)
Else
fdr("评标优惠率平均值_最高限价") = e.DataTable.Compute("Avg(优惠率_最高限价)","[项目编号] = '" & dr("项目编号") & "' And [优惠率_最高限价] <> 0")
End If
Else
fdr("评标优惠率平均值_最高限价") = Nothing
End If
加好友 
发短信
Post By：2018/7/14 1:32:00 [显示全部帖子]
