Dim t As Table = e.form.controls("Table1").Table Dim drs As List(Of DataRow) = t.DataTable.Select("[有效报价] > 0 " & iif(t.Filter>"", " and (" & t.filter & ")", ""),"有效报价 DESC") If drs.Count > 0 Then drs(0)("有效报价") = "去掉最高报价" If drs.Count > 1 Then drs(1)("有效报价") = "去掉次高报价" drs(drs.count-1)("有效报价") = "去掉最低报价" drs(drs.count-2)("有效报价") = "去掉次低报价" End If End If